From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Jun 2010 03:52:52 +0000 (-0700)
Subject: Fix bug: logic for ->URI wasn't handling no-error case right.
X-Git-Tag: 20100708-Gtk~17
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f9818263c0571b7be9f585a70455404956db2e9;p=mit-scheme.git

Fix bug: logic for ->URI wasn't handling no-error case right.
---

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)