saw my own bug first

svn: r8571
This commit is contained in:
John Clements 2008-02-07 19:37:27 +00:00
parent 6c0ac2d25c
commit 16f4125d0e

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" request-method)))
(error 'get-cgi-method "REQUEST_METHOD environment variable: expected string, got ~v" (getenv "REQUEST_METHOD"))))
;; generate-link-text : string x html-string -> html-string
(define (generate-link-text url anchor-text)