--- gforth/kernel/accept.fs 2007/06/30 23:00:15 1.19 +++ gforth/kernel/accept.fs 2007/07/01 20:01:32 1.20 @@ -41,8 +41,6 @@ Create ctrlkeys ' false a, ' false a, ' false a, ' false a, ' false a, ' false a, ' false a, ' false a, - ' false a, - defer insert-char ' (ins) IS insert-char defer everychar @@ -57,7 +55,6 @@ defer everyline everychar dup -1 = IF drop 4 THEN \ -1 is EOF dup #del = IF drop #bs THEN \ del is rubout - dup $FF = IF drop bl cells ctrlkeys + perform EXIT THEN dup bl u< IF cells ctrlkeys + perform EXIT THEN \ check for end reached insert-char 0 ;