Return to history.fs CVS log | Up to [gforth] / gforth |
version 1.47, 2006/02/19 22:15:05 | version 1.48, 2006/05/01 09:45:56 |
---|---|
Line 316 xchar-history | Line 316 xchar-history |
: history-cold ( -- ) | : history-cold ( -- ) |
history-file get-history xchar-history ; | history-file get-history xchar-history ; |
' history-cold INIT8 chained | :noname ( -- ) |
defers 'cold | |
history-cold | |
; is 'cold | |
history-cold | history-cold |