Diff for /gforth/wf.fs between versions 1.4 and 1.5

version 1.4, 2001/07/17 14:21:21 version 1.5, 2001/07/17 15:50:43
Line 155  Variable table# Line 155  Variable table#
 : |line  s" tr" >env  table# off ;  : |line  s" tr" >env  table# off ;
 : line|  -env -env cr ;  : line|  -env -env cr ;
   
   : next-char ( -- char )  source drop >in @ + c@ ;
   
 longtags set-current  longtags set-current
   
 : <| s" table" >env bl sword table-format $! ;  : <| s" table" >env bl sword table-format $! ;
 : |> -env ;  : |> -env ;
 : +| |line  : +| |line
     BEGIN      BEGIN
         |h '| parse-to char? '+ =  UNTIL line| ;          |h '| parse-to next-char '+ =  UNTIL line| ;
 : -| |line  : -| |line
     BEGIN      BEGIN
         |d '| parse-to char? '- =  UNTIL line| ;          |d '| parse-to next-char '- =  UNTIL line| ;
   
 definitions  definitions
   

Removed from v.1.4  
changed lines
  Added in v.1.5


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