--- gforth/compat/anslocal.fs 1996/09/30 13:16:24 1.2 +++ gforth/compat/anslocal.fs 1997/06/06 17:28:12 1.3 @@ -10,8 +10,20 @@ \ it and 2) it's unnecessary; just put a 0 before the "{" for every \ additional local you want to declare. -\ This program uses PARSE from the core ext and COMPARE from the -\ string wordsets +\ The program uses the following words +\ 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" -- ) bl word count (local) ;