| version 1.8, Mon Aug 25 14:17:50 2003 UTC | version 1.9, Sun Jun 13 21:44:53 2004 UTC | ||
|---|---|---|---|
|
|
||
| source >in ! drop ; immediate | source >in ! drop ; immediate | ||
| : put-doc-entry ( -- ) | : put-doc-entry ( -- ) | ||
| locals-list @ 0= \ not in a colon def, i.e., not a local name | dpp @ normal-dp = \ not defining locals | ||
| latest 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 |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |