Return to kernal.fs CVS log | Up to [gforth] / gforth |
version 1.29, 1995/02/09 17:49:57 | version 1.30, 1995/02/15 14:50:07 |
---|---|
Line 1470 Defer 'cold ' noop IS 'cold | Line 1470 Defer 'cold ' noop IS 'cold |
: cold ( -- ) | : cold ( -- ) |
pathstring 2@ process-path pathdirs 2! | pathstring 2@ process-path pathdirs 2! |
0 0 included-files 2! | |
'cold | 'cold |
argc @ 1 > | argc @ 1 > |
IF | IF |