From 179d96326e27cfddefe142ba81a719ccac5ada49 Mon Sep 17 00:00:00 2001 From: John Clements Date: Thu, 7 Feb 2008 19:34:22 +0000 Subject: [PATCH] took eli's suggestion re: use of or svn: r8570 original commit: 6c0ac2d25c4824076f098f6a4b191e06bf445a0e --- collects/net/cgi-unit.ss | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/net/cgi-unit.ss b/collects/net/cgi-unit.ss index e95926e..6d8fbea 100644 --- a/collects/net/cgi-unit.ss +++ b/collects/net/cgi-unit.ss @@ -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)