From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 14 Jul 2001 11:44:13 +0000 (+0000)
Subject: Use new parser/matcher macro environments.
X-Git-Tag: 20090517-FFI~2652
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=466b116d5078a321aa1ce422a34a82e234db0211;p=mit-scheme.git

Use new parser/matcher macro environments.
---

diff --git a/v7/src/xml/compile.scm b/v7/src/xml/compile.scm
index 5dec17c01..5a1bfe771 100644
--- a/v7/src/xml/compile.scm
+++ b/v7/src/xml/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.2 2001/07/12 03:20:48 cph Exp $
+;;; $Id: compile.scm,v 1.3 2001/07/14 11:44:13 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -20,15 +20,23 @@
 ;;; 02111-1307, USA.
 
 (load-option 'CREF)
+
+(if (not (environment-bound? system-global-environment 'XML-PARSER-MACROS))
+    (local-assignment system-global-environment
+		      'XML-PARSER-MACROS
+		      (make-parser-macros #f)))
+
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
-    (load "parser-macro")
-    (for-each compile-file
-	      '("xml-struct"
-		"xml-chars"
-		"xml-parser"
-		;;"xml-output"
-		))
+    (with-current-parser-macros xml-parser-macros
+      (lambda ()
+	(load "parser-macro")
+	(for-each compile-file
+		  '("xml-struct"
+		    "xml-chars"
+		    "xml-parser"
+		    ;;"xml-output"
+		    ))))
     (cref/generate-constructors "xml")
     (sf "xml.con")
     (sf "xml.ldr")))
\ No newline at end of file