version 1.48, 2006/10/08 11:30:56
|
version 1.50, 2006/12/31 13:39:14
|
Line 1
|
Line 1
|
\ wiki forth |
\ wiki forth |
|
|
\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc. |
\ Copyright (C) 2003,2004,2005,2006 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 rethrow ; |
['] parse-line catch pop-file throw ; |
[THEN] [THEN] |
[THEN] [THEN] |
|
|
Variable expand-link |
Variable expand-link |