gforth/kernel/accept.fs - diff

Return to accept.fs CVS log

Up to [gforth] / gforth / kernel

version 1.2, 1998/12/08 22:03:08	version 1.3, 1999/01/21 20:09:14
Line 40 defer everychar	Line 40 defer everychar
: decode ( max span addr pos1 key -- max span addr pos2 flag )	: decode ( max span addr pos1 key -- max span addr pos2 flag )
everychar	everychar
dup #del = IF drop #bs THEN \ del is rubout	dup #del = IF drop #bs THEN \ del is rubout
dup bl < IF cells ctrlkeys + perform EXIT THEN	dup bl u< IF cells ctrlkeys + perform EXIT THEN
>r 2over = IF rdrop bell 0 EXIT THEN	>r 2over = IF rdrop bell 0 EXIT THEN
r> insert-char 0 ;	r> insert-char 0 ;