scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adapt URI-HAS-PROTOCOL? to new URL parser

This commit is contained in:
vibr 2005-04-06 11:59:05 +00:00
parent 0de6fe79b4
commit 61a63b4d4b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/cgi-server.scm
View File

@ -287,9 +287,9 @@
(copy-inport->outport script-port out))))) (copy-inport->outport script-port out)))))
(define (uri-has-protocol? loc) (define (uri-has-protocol? loc)
(receive (proto path search frag) (receive (host port path query)
(parse-uri loc) (parse-url loc)
(if proto #t #f))) (if host #t #f)))
(define (extract-status-code-and-text status req) (define (extract-status-code-and-text status req)
(with-fatal-error-handler* (with-fatal-error-handler*