version 1.6, 2003/03/09 15:17:01
|
version 1.7, 2003/03/22 10:04:08
|
Line 68 s" \ automatically generated by makedoc.
|
Line 68 s" \ automatically generated by makedoc.
|
|
|
: put-doc-entry ( -- ) |
: put-doc-entry ( -- ) |
locals-list @ 0= \ not in a colon def, i.e., not a local name |
locals-list @ 0= \ not in a colon def, i.e., not a local name |
last @ 0<> and \ not an anonymous (i.e. noname) header |
latest 0<> and \ not an anonymous (i.e. noname) header |
if |
if |
s" " >fileCR |
s" " >fileCR |
s" make-doc " >file |
s" make-doc " >file |
Line 89 s" \ automatically generated by makedoc.
|
Line 89 s" \ automatically generated by makedoc.
|
ELSE |
ELSE |
drop >in ! |
drop >in ! |
THEN |
THEN |
last @ name>string >file |
latest name>string >file |
>file |
>file |
s" )" >file |
s" )" >file |
POSTPONE \g |
POSTPONE \g |