--- gforth/history.fs 2004/12/24 14:08:43 1.33 +++ gforth/history.fs 2004/12/26 20:32:02 1.34 @@ -218,6 +218,8 @@ Create prefix-found 0 , 0 , : kill-prefix ( key -- key ) dup #tab <> IF 0 0 prefix-found 2! THEN ; +[IFUNDEF] everyline defer everyline [THEN] + : 8-bit-io ( -- ) ['] forw ctrl F bindkey ['] back ctrl B bindkey