aliens/tekuti
1
0
Fork 0
Code Activity

ensure-uri-reference works with older Guiles

Browse source 
* tekuti/page-helpers.scm (ensure-uri-reference): Fix to work with Guile
  without build-uri-reference.
This commit is contained in:
Andy Wingo 2014-10-22 15:29:28 +02:00
parent ab54aca59f
commit 6d491994f7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tekuti/page-helpers.scm
View file

@ -1,5 +1,5 @@
;; Tekuti
;; Copyright (C) 2008, 2010, 2012 Andy Wingo <wingo at pobox dot com>
;; Copyright (C) 2008, 2010, 2012, 2014 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@ -79,7 +79,10 @@
(cond
((uri? x) x)
((string? x)
(build-uri-reference #:path x))
(if (defined? 'build-uri-reference)
(build-uri-reference #:path x)
;; Absolute URIs on older Guile.
(ensure-uri x)))
((list? x)
(ensure-uri-reference (relurl x)))
(else (error "can't turn into a uri" x))))