Fix typo: fragment was allowed twice.

diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm
index d56b4922a5bba4e4bb6acebc708e8d76e030a17e..056399f09b31a146519d7f81d4dd95048910554b 100644 (file)
--- a/v7/src/runtime/url.scm
+++ b/v7/src/runtime/url.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: url.scm,v 1.19 2005/05/24 19:53:42 cph Exp $
+$Id: url.scm,v 1.20 2005/05/25 03:15:27 cph Exp $
 
 Copyright 2000,2001,2003,2004,2005 Massachusetts Institute of Technology
 
@@ -231,11 +231,8 @@ USA.
 (define parse-uri
   (*parser
    (top-level
-    (seq (alt parse-absolute-uri
-             parse-relative-uri
-             (values #f))
-        (alt (seq "#" parse-fragment)
-             (values #f))))))
+    (alt parse-absolute-uri
+        parse-relative-uri))))
 
 (define parse-absolute-uri
   (*parser