From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Nov 2001 21:32:44 +0000 (+0000)
Subject: Make sure *PARSER is loaded for IMAIL.  It's not necessary to load it
X-Git-Tag: 20090517-FFI~2460
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=56975da96bc452ebeaa0a71b683c099ee23d5218;p=mit-scheme.git

Make sure *PARSER is loaded for IMAIL.  It's not necessary to load it
just for the URL file.
---

diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index f1162cf29..0029a8428 100644
--- a/v7/src/imail/load.scm
+++ b/v7/src/imail/load.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.34 2001/11/05 21:21:16 cph Exp $
+;;; $Id: load.scm,v 1.35 2001/11/05 21:32:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -24,6 +24,7 @@
 (load-option 'HASH-TABLE)
 (load-option 'REGULAR-EXPRESSION)
 (load-option 'SOS)
+(load-option '*PARSER)
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (fluid-let ((*allow-package-redefinition?* #t))
diff --git a/v7/src/imail/url.scm b/v7/src/imail/url.scm
index 6dd5968ce..555a57241 100644
--- a/v7/src/imail/url.scm
+++ b/v7/src/imail/url.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: url.scm,v 1.10 2001/11/05 21:05:56 cph Exp $
+$Id: url.scm,v 1.11 2001/11/05 21:32:40 cph Exp $
 
 Copyright (c) 2000, 2001 Massachusetts Institute of Technology
 
@@ -23,7 +23,6 @@ USA.
 ;;;; URL Encoding
 
 (declare (usual-integrations))
-(load-option '*PARSER)
 
 (define url:char-set:safe (string->char-set "$-_.+"))
 (define url:char-set:extra (string->char-set "!*'(),"))