version 1.32, 2005/01/16 13:29:21
|
version 1.33, 2005/01/22 16:39:58
|
Line 289 Defer parse-line
|
Line 289 Defer parse-line
|
|
|
: link-warn? ( -- ) \ local links only |
: link-warn? ( -- ) \ local links only |
link $@ ': scan nip ?EXIT |
link $@ ': scan nip ?EXIT |
link $@ '# $split 2drop r/o open-file nip IF |
link $@ '# $split 2drop dup IF |
s" Dead Link '" stderr write-file throw |
r/o open-file nip IF |
link $@ stderr write-file throw |
s" Dead Link '" stderr write-file throw |
s\" ' !!!\n" stderr write-file throw |
link $@ stderr write-file throw |
THEN ; |
s\" ' !!!\n" stderr write-file throw |
|
THEN |
|
ELSE 2drop THEN ; |
|
|
: link-options ( addr u -- addr' u' ) |
: link-options ( addr u -- addr' u' ) |
do-size off do-icon on do-expand off |
do-size off do-icon on do-expand off |