suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

error message for non-string result in get-cgi-method

Browse Source 
svn: r8569

original commit: b79ea16fcfa5d46eb944fb4d704c9e286582e48e
This commit is contained in:
John Clements 2008-02-07 19:27:37 +00:00
parent 5f53e41e97
commit b0db8f3d76
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/net/cgi-unit.ss
View File

@ -206,7 +206,10 @@
;; get-cgi-method : () -> string ;; get-cgi-method : () -> string
;; -- string is either GET or POST (though future extension is possible) ;; -- string is either GET or POST (though future extension is possible)
(define (get-cgi-method) (define (get-cgi-method)
(getenv "REQUEST_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))))
;; generate-link-text : string x html-string -> html-string ;; generate-link-text : string x html-string -> html-string
(define (generate-link-text url anchor-text) (define (generate-link-text url anchor-text)