From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 May 2005 03:15:27 +0000 (+0000)
Subject: Fix typo: fragment was allowed twice.
X-Git-Tag: 20090517-FFI~1303
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ff3ad2f9036a947380e4bb37e150acefc0d6b9d;p=mit-scheme.git

Fix typo: fragment was allowed twice.
---

diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm
index d56b4922a..056399f09 100644
--- 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