gforth/wf.fs - diff

Return to wf.fs CVS log

Up to [gforth] / gforth

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