![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to kernel.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to kernel.fs CVS log | Up to [gforth] / gforth |
| version 1.21, 1997/03/25 23:27:13 | version 1.22, 1997/03/27 13:31:02 |
|---|---|
| Line 1320 Defer 'cold ( -- ) \ gforth tick-cold | Line 1320 Defer 'cold ( -- ) \ gforth tick-cold |
| [ [THEN] ] | [ [THEN] ] |
| 'cold | 'cold |
| [ has-files [IF] ] | [ has-files [IF] ] |
| argc @ 1 > | ['] process-args catch ?dup |
| IF | IF |
| ['] process-args catch ?dup | dup >r DoError cr r> negate (bye) |
| IF | THEN |
| dup >r DoError cr r> negate (bye) | argc @ 1 > |
| THEN | IF \ there may be some unfinished line, so let's finish it |
| cr | cr |
| THEN | THEN |
| [ [THEN] ] | [ [THEN] ] |