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

version 1.7, 1997/02/16 20:51:10 version 1.8, 1997/03/13 23:40:33
Line 7 Line 7
 \  \
 \               Thank you.  \               Thank you.
 \  \
   \ The program uses the following words
   \ 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 
   \ from CORE-EXT :
   \ nip tuck true ?DO compile, false Value erase pick :noname 0<> 
   \ from BLOCK-EXT :
   \ \ 
   \ from EXCEPTION :
   \ throw 
   \ from EXCEPTION-EXT :
   \ abort" 
   \ from FILE :
   \ ( S" 
   \ from FLOAT :
   \ faligned 
   \ from LOCAL :
   \ TO 
   \ from MEMORY :
   \ allocate free 
   \ from SEARCH :
   \ find definitions get-order set-order get-current wordlist set-current search-wordlist 
   \ from SEARCH-EXT :
   \ also Forth previous 
   \ from STRING :
   \ /string compare 
   \ from TOOLS-EXT :
   \ [IF] [THEN] [ELSE] state 
   
 \ Loadscreen                                           27dec95py  \ Loadscreen                                           27dec95py
   

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


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