Group: comp.lang.forth · Group Profile · Search for Order3 in comp.lang.forth
Author: J Thomas
Date: Apr 18, 2007 07:40
... -- xj ... x1 j ) [ BASE @ ] LITERAL ! DUP IF 1- SWAP DUP [ BASE @ ] LITERAL @ - IF R RECURSE SWAP 1+ ELSE DROP RECURSE THEN THEN ; BASE ! : -ORDER3 ( wid -- ) R GET-ORDER [ BASE @ COMPILE, ] SET-ORDER ; BASE ! \ also 184 ------ I can't predict what an optimising compiler would do. It seems silly to make it unreadable to ...
| 
