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

rename URI-LIKE? to URI-HAS-PROTOCOL?

This commit is contained in:
interp 2002-09-03 08:45:59 +00:00
parent a33b7405a5
commit 443e321cc8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -257,7 +257,7 @@
(request:method req)) (request:method req))
(if loc (if loc
(if (uri-like? (string-trim loc)) (if (uri-has-protocol? (string-trim loc))
(make-http-error-response http-status/moved-perm req (make-http-error-response http-status/moved-perm req
loc loc) loc loc)
(make-redirect-response (string-trim loc))) (make-redirect-response (string-trim loc)))
@ -275,7 +275,7 @@
;; shouldn't this be in uri? ;; shouldn't this be in uri?
(define (uri-like? loc) (define (uri-has-protocol? loc)
(receive (proto path search frag) (receive (proto path search frag)
(parse-uri loc) (parse-uri loc)
(if proto #t #f))) (if proto #t #f)))