From 719af372f978c057fdaff9b04ced6a6401439b17 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 27 May 2014 06:55:31 +0900 Subject: [PATCH] Reversing logic of uri-has-scheme?. --- lib/chibi/uri.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/chibi/uri.scm b/lib/chibi/uri.scm index e59a611b..aa3ba617 100644 --- a/lib/chibi/uri.scm +++ b/lib/chibi/uri.scm @@ -199,8 +199,7 @@ (define uri-has-scheme? (let ((no-scheme (list 'no-scheme))) (lambda (url) - (and url - (eq? no-scheme (uri-scheme (string->path-uri no-scheme url))))))) + (not (eq? no-scheme (uri-scheme (string->path-uri no-scheme url))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; query encoding and decoding