From 79f33b2e41bd3003bd36e01abd5cd4b093d186e7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 18 Feb 2006 01:42:13 +0000 Subject: [PATCH] Don't use TOP-LEVEL in URI parsers; it makes them unable to be combined into other parsers. --- v7/src/runtime/url.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm index 2cbe557c1..bdbc7d8e8 100644 --- a/v7/src/runtime/url.scm +++ b/v7/src/runtime/url.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: url.scm,v 1.40 2006/02/02 01:02:12 cph Exp $ +$Id: url.scm,v 1.41 2006/02/18 01:42:13 cph Exp $ Copyright 2000,2001,2003,2004,2005,2006 Massachusetts Institute of Technology @@ -370,13 +370,13 @@ USA. (vector-ref v 0)))) (define parse-uri - (*parser (top-level (encapsulate encapsulate-uri parser:uri-reference)))) + (*parser (encapsulate encapsulate-uri parser:uri-reference))) (define parse-absolute-uri - (*parser (top-level (encapsulate encapsulate-uri parser:uri)))) + (*parser (encapsulate encapsulate-uri parser:uri))) (define parse-relative-uri - (*parser (top-level (encapsulate encapsulate-uri parser:relative-ref)))) + (*parser (encapsulate encapsulate-uri parser:relative-ref))) (define (encapsulate-uri v) (%make-uri (vector-ref v 0) -- 2.25.1