aliens/tekuti
1
0
Fork 0
Code Activity

Allow scheme-relative URIs in urlish?

Browse source 
* tekuti/util.scm (urlish?): Allow scheme-relative URIs.
This commit is contained in:
Andy Wingo 2014-10-15 09:46:53 +02:00
parent c087e7b6fa
commit c631aaf35c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/util.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010, 2011, 2012, 2014 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -62,7 +62,7 @@
(define (urlish? x) (define (urlish? x)
(let ((uri (string->uri x))) (let ((uri (string->uri x)))
(and uri (and uri
(memq (uri-scheme uri) '(http https)) (memq (uri-scheme uri) '(#f http https))
(uri-host uri) (uri-host uri)
#t))) #t)))