Diff for /gforth/wf.fs between versions 1.47 and 1.48

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

Removed from v.1.47  
changed lines
  Added in v.1.48


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>