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

version 1.46, 2006/03/20 00:14:56 version 1.48, 2006/10/08 11:30:56
Line 43  require string.fs Line 43  require string.fs
         case          case
             '& of  ." &"  endof              '& of  ." &"  endof
             '< of  ." &lt;"   endof              '< of  ." &lt;"   endof
 \           ' of  ." &euro;" endof  \           &164 of  ." &euro;" endof
             dup emit              dup emit
         endcase          endcase
     LOOP ;      LOOP ;
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.46  
changed lines
  Added in v.1.48


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