[gforth] / gforth / kernel / accept.fs  

gforth: gforth/kernel/accept.fs

Diff for /gforth/kernel/accept.fs between version 1.8 and 1.9

version 1.8, Sat Oct 28 08:49:03 2000 UTC version 1.9, Thu May 10 08:28:32 2001 UTC
Line 28 
Line 28 
     true space ;      true space ;
   
 Create ctrlkeys  Create ctrlkeys
   ] false false false false  false false false false      ' false a, ' false a, ' false a, ' false a,
     (bs)  false (ret) false  false (ret) false false      ' false a, ' false a, ' false a, ' false a,
     false false false false  false false false false  
     false false false false  false false false false [      ' (bs)  a, ' false a, ' (ret) a, ' false a,
       ' false a, ' (ret) a, ' false a, ' false a,
   
       ' false a, ' false a, ' false a, ' false a,
       ' false a, ' false a, ' false a, ' false a,
   
       ' false a, ' false a, ' false a, ' false a,
       ' false a, ' false a, ' false a, ' false a,
   
 defer insert-char  defer insert-char
 ' (ins) IS insert-char  ' (ins) IS insert-char
Line 42 
Line 49 
   everychar    everychar
   dup #del = IF  drop #bs  THEN  \ del is rubout    dup #del = IF  drop #bs  THEN  \ del is rubout
   dup bl u<  IF  cells ctrlkeys + perform  EXIT  THEN    dup bl u<  IF  cells ctrlkeys + perform  EXIT  THEN
     \ check for end reached
   >r 2over = IF  rdrop bell 0 EXIT  THEN    >r 2over = IF  rdrop bell 0 EXIT  THEN
   r> insert-char 0 ;    r> insert-char 0 ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help