Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reversing logic of uri-has-scheme?.

Browse source
This commit is contained in:
Alex Shinn 2014-05-27 06:55:31 +09:00
parent 5246763c8b
commit 719af372f9
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/uri.scm
View file

@ -199,8 +199,7 @@
(define uri-has-scheme? (define uri-has-scheme?
(let ((no-scheme (list 'no-scheme))) (let ((no-scheme (list 'no-scheme)))
(lambda (url) (lambda (url)
(and url (not (eq? no-scheme (uri-scheme (string->path-uri no-scheme url)))))))
(eq? no-scheme (uri-scheme (string->path-uri no-scheme url)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; query encoding and decoding ;; query encoding and decoding