Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.40, 2002/04/01 15:34:34 | version 1.41, 2002/09/14 11:18:57 |
---|---|
Line 483 c-extender ! | Line 483 c-extender ! |
( end!) 2drop false EXIT THEN | ( end!) 2drop false EXIT THEN |
THEN | THEN |
\ jump over to extender, if any 26jan97jaw | \ jump over to extender, if any 26jan97jaw |
2 pick <> | xt>threaded 2 pick <> |
WHILE 2 cells + | WHILE 2 cells + |
REPEAT | REPEAT |
nip cell+ perform | nip cell+ perform |