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 |