Return to wf.fs CVS log | Up to [gforth] / gforth |
version 1.47, 2006/08/26 12:39:57 | version 1.48, 2006/10/08 11:30:56 |
---|---|
Line 331 s" Gforth" environment? [IF] s" 0.5.0" s | Line 331 s" Gforth" environment? [IF] s" 0.5.0" s |
[ELSE] | [ELSE] |
: parse-string ( addr u -- ) | : parse-string ( addr u -- ) |
evaluate-input cell new-tib #tib ! tib ! | evaluate-input cell new-tib #tib ! tib ! |
['] parse-line catch pop-file throw ; | ['] parse-line catch pop-file rethrow ; |
[THEN] [THEN] | [THEN] [THEN] |
Variable expand-link | Variable expand-link |