Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.48, 2002/05/28 08:54:27 | version 1.49, 2002/09/14 08:20:19 |
---|---|
Line 685 interpret/compile: TO ( c|w|d|r "name" - | Line 685 interpret/compile: TO ( c|w|d|r "name" - |
\ don't use 'locals|'! use '{'! A portable and free '{' | \ don't use 'locals|'! use '{'! A portable and free '{' |
\ implementation is compat/anslocals.fs | \ implementation is compat/anslocals.fs |
BEGIN | BEGIN |
name 2dup s" |" compare 0<> | name 2dup s" |" str= 0= |
WHILE | WHILE |
(local) | (local) |
REPEAT | REPEAT |