version 1.97, 2001/04/08 13:48:11
|
version 1.98, 2001/05/09 16:22:10
|
Line 1579 Variable to-doc to-doc on
|
Line 1579 Variable to-doc to-doc on
|
IF |
IF |
s" " doc-file-id write-line throw |
s" " doc-file-id write-line throw |
s" make-doc " doc-file-id write-file throw |
s" make-doc " doc-file-id write-file throw |
|
Last-Header-Ghost @ >ghostname doc-file-id write-file throw |
tlast @ >image count 1F and doc-file-id write-file throw |
|
>in @ |
>in @ |
[char] ( parse 2drop |
[char] ( parse 2drop |
[char] ) parse doc-file-id write-file throw |
[char] ) parse doc-file-id write-file throw |