Diff for /gforth/kernel/saccept.fs between versions 1.16 and 1.17

version 1.16, 2007/12/31 19:02:25 version 1.17, 2010/06/10 09:50:03
Line 44  Variable echo  -1 echo ! Line 44  Variable echo  -1 echo !
    THEN      THEN 
   AGAIN ;    AGAIN ;
       
   : refill-loop ( -- )
       BEGIN  3 emit refill  WHILE  interpret  REPEAT ;   
   : included ( addr u -- )
       2 emit dup $20 + emit type
       echo @ IF
           echo off ['] refill-loop catch
           dup IF  4 emit  THEN  echo on  throw
       THEN ;
   : include ( "file" -- )  parse-name included ;

Removed from v.1.16  
changed lines
  Added in v.1.17


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