svn: r8572
This commit is contained in:
John Clements 2008-02-07 19:45:51 +00:00
parent 16f4125d0e
commit d135abdd17

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)