svn: r8572

original commit: d135abdd17aba4911b049f084c6c40b9b665bb4b
This commit is contained in:
John Clements 2008-02-07 19:45:51 +00:00
parent 16ed01274e
commit c0170dc646

View File

@ -207,7 +207,7 @@
;; -- string is either GET or POST (though future extension is possible)
(define (get-cgi-method)
(or (getenv "REQUEST_METHOD")
(error 'get-cgi-method "REQUEST_METHOD environment variable: expected string, got ~v" (getenv "REQUEST_METHOD"))))
(error 'get-cgi-method "REQUEST_METHOD environment variable: expected string, got #f")))
;; generate-link-text : string x html-string -> html-string
(define (generate-link-text url anchor-text)