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 b24c62ed4b2af499e42f98383dfe31d8cf724ebe..b4682f2681ce4fddad29fb09302cfe451a6712b1 100644 (file)
--- 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)