Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.7, 1994/09/12 19:00:30 | version 1.8, 1994/10/24 19:15:58 |
---|---|
Line 509 forth definitions | Line 509 forth definitions |
endif ; immediate | endif ; immediate |
: locals| | : locals| |
BEGIN name 2dup s" |" compare 0= WHILE | BEGIN |
(local) REPEAT drop 0 (local) ; immediate restrict | name 2dup s" |" compare 0<> |
WHILE | |
(local) | |
REPEAT | |
drop 0 (local) ; immediate restrict |