![[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.20, 2000/04/02 20:18:27 | version 1.21, 2000/04/12 20:53:46 |
|---|---|
| Line 230 Create prefix-found 0 , 0 , | Line 230 Create prefix-found 0 , 0 , |
| ['] force-open catch | ['] force-open catch |
| ?dup-if | ?dup-if |
| \ !! >stderr | \ !! >stderr |
| history-file type ." : " .error cr 2drop | \ history-file type ." : " .error cr |
| drop 2drop | |
| ['] false ['] false ['] (ret) | ['] false ['] false ['] (ret) |
| else | else |
| to history | to history |