Return to etags.fs CVS log | Up to [gforth] / gforth |
version 1.5, 1995/12/23 16:21:56 | version 1.6, 1996/02/09 17:34:08 |
---|---|
Line 64 create tags-line 128 chars allot | Line 64 create tags-line 128 chars allot |
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 -- ) |