version 1.25, 2004/06/24 20:50:40
|
version 1.26, 2004/07/18 13:31:06
|
Line 232 Defer parse-line
|
Line 232 Defer parse-line
|
|
|
: link-warn? ( -- ) \ local links only |
: link-warn? ( -- ) \ local links only |
link $@ ': scan nip ?EXIT |
link $@ ': scan nip ?EXIT |
link $@ r/o open-file nip IF |
link $@ '# $split 2drop r/o open-file nip IF |
s" Dead Link '" stderr write-file throw |
s" Dead Link '" stderr write-file throw |
link $@ stderr write-file throw |
link $@ stderr write-file throw |
s\" ' !!!\n" stderr write-file throw |
s\" ' !!!\n" stderr write-file throw |