![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to etags.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 -- ) |