| version 1.5, Sat Dec 23 16:21:56 1995 UTC | version 1.6, Fri Feb 9 17:34:08 1996 UTC | ||
|---|---|---|---|
|
|
||
| endif | endif | ||
| tags-file @ ; | tags-file @ ; | ||
| create emit-file-char 0 c, | |||
| : emit-file ( c file-id -- ) | |||
| swap emit-file-char c! | |||
| emit-file-char 1 chars rot write-file ; | |||
| 2variable last-loadfilename 0 0 last-loadfilename 2! | 2variable last-loadfilename 0 0 last-loadfilename 2! | ||
| : put-load-file-name ( file-id -- ) | : put-load-file-name ( file-id -- ) |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |