From 4f9818263c0571b7be9f585a70455404956db2e9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 Jun 2010 20:52:52 -0700
Subject: [PATCH] Fix bug: logic for ->URI wasn't handling no-error case right.

---
 src/runtime/url.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/runtime/url.scm b/src/runtime/url.scm
index b24c62ed4..b4682f268 100644
--- a/src/runtime/url.scm
+++ b/src/runtime/url.scm
@@ -332,9 +332,11 @@ USA.
   (let* ((do-parse
 	  (lambda (string)
 	    (let ((v (*parse-string parser string)))
-	      (if (and (not v) caller)
-		  (error:bad-range-argument object caller))
-	      (vector-ref v 0))))
+	      (if v
+		  (vector-ref v 0)
+		  (begin
+		    (if caller (error:bad-range-argument object caller))
+		    #f)))))
 	 (do-string
 	  (lambda (string)
 	    (or (hash-table/get interned-uris string #f)
-- 
2.25.1