Diff for /gforth/oof.fs between versions 1.8 and 1.9

version 1.8, 1997/03/13 23:40:33 version 1.9, 1997/03/31 22:14:39
Line 9 Line 9
 \  \
 \ The program uses the following words  \ The program uses the following words
 \ from CORE :  \ from CORE :
 \ decimal : bl word 0= ; = cells Constant Variable ! Create , allot @ IF POSTPONE >r ELSE +! dup + THEN immediate r> * >body cell+ Literal drop align here aligned DOES> execute ['] 2@ recurse swap 1+ over LOOP and EXIT ?dup 0< rot r@ - i negate +LOOP 2drop BEGIN WHILE 2dup REPEAT 1- rshift > / ' move UNTIL or count   \ decimal : bl word 0= ; = cells Constant Variable ! Create , allot @ IF
   \ POSTPONE >r ELSE +! dup + THEN immediate r> * >body cell+ Literal drop
   \ align here aligned DOES> execute ['] 2@ recurse swap 1+ over LOOP and
   \ EXIT ?dup 0< rot r@ - i negate +LOOP 2drop BEGIN WHILE 2dup REPEAT 1-
   \ rshift > / ' move UNTIL or count 
 \ from CORE-EXT :  \ from CORE-EXT :
 \ nip tuck true ?DO compile, false Value erase pick :noname 0<>   \ nip tuck true ?DO compile, false Value erase pick :noname 0<> 
 \ from BLOCK-EXT :  \ from BLOCK-EXT :
Line 27 Line 31
 \ from MEMORY :  \ from MEMORY :
 \ allocate free   \ allocate free 
 \ from SEARCH :  \ from SEARCH :
 \ find definitions get-order set-order get-current wordlist set-current search-wordlist   \ find definitions get-order set-order get-current wordlist set-current
   \ search-wordlist 
 \ from SEARCH-EXT :  \ from SEARCH-EXT :
 \ also Forth previous   \ also Forth previous 
 \ from STRING :  \ from STRING :

Removed from v.1.8  
changed lines
  Added in v.1.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>