![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.43, 1999/12/03 18:49:51 | version 1.44, 1999/12/12 12:49:52 |
|---|---|
| Line 755 Defer 'cold ( -- ) \ gforth tick-cold | Line 755 Defer 'cold ( -- ) \ gforth tick-cold |
| Variable init8 | Variable init8 |
| : cold ( -- ) \ gforth | : cold ( -- ) \ gforth |
| [ has? backtrace [IF] ] | |
| rp@ backtrace-rp0 ! | |
| [ [THEN] ] | |
| handler off | |
| [ has? file [IF] ] | [ has? file [IF] ] |
| pathstring 2@ fpath only-path | pathstring 2@ fpath only-path |
| init-included-files | init-included-files |