[gforth] / gforth / oof.fs  

gforth: gforth/oof.fs

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

version 1.8, Thu Mar 13 23:40:33 1997 UTC version 1.9, Mon Mar 31 22:14:39 1997 UTC
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 :

Generate output suitable for use with a patch program
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help