Diff for /gforth/compat/anslocal.fs between versions 1.2 and 1.3

version 1.2, 1996/09/30 13:16:24 version 1.3, 1997/06/06 17:28:12
Line 10 Line 10
 \ it and 2) it's unnecessary; just put a 0 before the "{" for every  \ it and 2) it's unnecessary; just put a 0 before the "{" for every
 \ additional local you want to declare.  \ additional local you want to declare.
   
 \ This program uses PARSE from the core ext and COMPARE from the  \ The program uses the following words
 \ string wordsets  \ from CORE :
   \ : bl word count ; >in @ 2dup 0= IF 2drop [char] ELSE THEN drop
   \ recurse swap ! immediate
   \ from CORE-EXT :
   \ parse true 
   \ from BLOCK-EXT :
   \ \ 
   \ from FILE :
   \ ( S" 
   \ from LOCAL :
   \ (local) 
   \ from STRING :
   \ compare 
   
 : local ( "name" -- )  : local ( "name" -- )
     bl word count (local) ;      bl word count (local) ;

Removed from v.1.2  
changed lines
  Added in v.1.3


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