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

version 1.17, 2010/06/10 09:50:03 version 1.18, 2010/06/10 10:05:34
Line 43  Variable echo  -1 echo ! Line 43  Variable echo  -1 echo !
            over c! char+ ELSE r> drop bell THEN             over c! char+ ELSE r> drop bell THEN
    THEN      THEN 
   AGAIN ;    AGAIN ;
     
   \ simple include for terminal.fs
   
 : refill-loop ( -- )  : refill-loop ( -- )
     BEGIN  3 emit refill  WHILE  interpret  REPEAT ;         BEGIN  3 emit refill  WHILE  interpret  REPEAT ;   
 : included ( addr u -- )  : included ( addr u -- )

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


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