![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to history.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to history.fs CVS log | Up to [gforth] / gforth |
| version 1.35, 2004/12/27 20:05:53 | version 1.36, 2004/12/27 21:15:40 |
|---|---|
| Line 218 Create prefix-found 0 , 0 , | Line 218 Create prefix-found 0 , 0 , |
| prefix-found @ IF bl (ins) THEN 0 ; | prefix-found @ IF bl (ins) THEN 0 ; |
| : kill-prefix ( key -- key ) | : kill-prefix ( key -- key ) |
| dup #tab <> IF 0 0 prefix-found 2! THEN ; | dup #tab <> IF prefix-off THEN ; |
| [IFUNDEF] everyline defer everyline [THEN] | [IFUNDEF] everyline defer everyline [THEN] |