Diff for /gforth/kernel/saccept.fs between versions 1.10 and 1.11

version 1.10, 2006/03/25 11:43:51 version 1.11, 2006/03/25 18:37:16
Line 29  require ./io.fs Line 29  require ./io.fs
    key dup #del = IF drop #bs THEN     key dup #del = IF drop #bs THEN
    dup bl u<     dup bl u<
    IF   dup #cr = over #lf = or IF  space drop nip swap - ( xoff ) EXIT THEN     IF   dup #cr = over #lf = or IF  space drop nip swap - ( xoff ) EXIT THEN
         #bs = IF 3 pick over <>           #bs = IF 3 pick over <> over 0> and 
         IF 1 chars - #bs emit bl emit #bs emit ELSE bell THEN THEN          IF 1 chars - #bs emit bl emit #bs emit ELSE bell THEN THEN
    ELSE >r 2dup <> IF r> dup emit over c! char+ ELSE r> drop bell THEN     ELSE >r 2dup <> IF r> dup emit over c! char+ ELSE r> drop bell THEN
    THEN      THEN 

Removed from v.1.10  
changed lines
  Added in v.1.11


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