(load (string-append laml-dir "laml.scm")) (style "simple-html4.0-loose") (lib-load "url-read.scm") (define (newline-string) cr) ; due to conflic between general and url-read. (define (a-tag-check url anchor-text) (if (page-ok? url) (a-tag url anchor-text) (con (u anchor-text) (b (font-color red " (broken)"))))) (generic-page-1 "URL Checking" (font-size 4 (con "The " (a-tag-check "http://www.cs.auc.dk" "first") " link is fine. The " (a-tag-check "http://www.cs.auc.dk/~kurt.normark" "second") " is bad (~normark, not ~kurt.normark). And the " (a-tag-check "http://abc.efg.hij" "last") " is also bad ")) white black blue blue) |