took eli's suggestion re: use of or

svn: r8570

original commit: 6c0ac2d25c4824076f098f6a4b191e06bf445a0e
This commit is contained in:
John Clements 2008-02-07 19:34:22 +00:00
parent b0db8f3d76
commit 179d96326e

View File

@ -206,10 +206,8 @@
;; get-cgi-method : () -> string
;; -- string is either GET or POST (though future extension is possible)
(define (get-cgi-method)
(let ([request-method (getenv "REQUEST_METHOD")])
(if (string? request-method)
request-method
(error 'get-cgi-method "REQUEST_METHOD environment variable: expected string, got ~v" request-method))))
(or (getenv "REQUEST_METHOD")
(error 'get-cgi-method "REQUEST_METHOD environment variable: expected string, got ~v" request-method)))
;; generate-link-text : string x html-string -> html-string
(define (generate-link-text url anchor-text)