rename URI-LIKE? to URI-HAS-PROTOCOL?
This commit is contained in:
parent
a33b7405a5
commit
443e321cc8
|
@ -257,7 +257,7 @@
|
|||
(request:method req))
|
||||
|
||||
(if loc
|
||||
(if (uri-like? (string-trim loc))
|
||||
(if (uri-has-protocol? (string-trim loc))
|
||||
(make-http-error-response http-status/moved-perm req
|
||||
loc loc)
|
||||
(make-redirect-response (string-trim loc)))
|
||||
|
@ -275,7 +275,7 @@
|
|||
|
||||
|
||||
;; shouldn't this be in uri?
|
||||
(define (uri-like? loc)
|
||||
(define (uri-has-protocol? loc)
|
||||
(receive (proto path search frag)
|
||||
(parse-uri loc)
|
||||
(if proto #t #f)))
|
||||
|
|
Loading…
Reference in New Issue