From 8ff3ad2f9036a947380e4bb37e150acefc0d6b9d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 May 2005 03:15:27 +0000
Subject: [PATCH] Fix typo: fragment was allowed twice.

---
 v7/src/runtime/url.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

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
-- 
2.25.1