Implement REVERSE-SYNTACTIC-ENVIRONMENTS. Add bindings for

SYSTEM-GLOBAL-SYNTAX-TABLE and EXTEND-IC-ENVIRONMENT to ease upgrading.

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index 8eee8d1d46b2b72f4bf1df9e383b99b5e14a448c..4867f029ee50addb6226773d6ea2b7cf2dcf077c 100644 (file)
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.84 2002/02/03 03:38:56 cph Exp $
+$Id: make.scm,v 14.85 2002/02/12 00:30:39 cph Exp $
 
 Copyright (c) 1988-2002 Massachusetts Institute of Technology
 
@@ -49,6 +49,8 @@ USA.
           val)))))
 
 (define system-global-environment #f)
+;; This simplifies upgrading to new macros:
+(define system-global-syntax-table system-global-environment)
 
 ;; *MAKE-ENVIRONMENT is referred to by compiled code.  It must go
 ;; before the uses of the-environment later, and after apply above.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index e3170f0dae319c7b65f12ebd1486e42afec8b744..0154b6349be2dd0808dbda1329ef1fb920621276 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.407 2002/02/03 03:38:56 cph Exp $
+$Id: runtime.pkg,v 14.408 2002/02/12 00:30:51 cph Exp $
 
 Copyright (c) 1988-2002 Massachusetts Institute of Technology
 
@@ -1322,6 +1322,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          environment-reference-type
          environment-safe-lookup
          environment?
+         (extend-ic-environment extend-interpreter-environment)
          extend-interpreter-environment
          guarantee-environment
          ic-environment?
@@ -3759,6 +3760,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          parse-mit-lambda-list
          r4rs-lambda-list?
          sc-macro-transformer->expander
+         reverse-syntactic-environments
          rsc-macro-transformer->expander
          strip-syntactic-closures
          syntactic-closure-rtd

diff --git a/v7/src/runtime/syntactic-closures.scm b/v7/src/runtime/syntactic-closures.scm
index 0950939bc03e5d89a41c2f0495498cfbe32ac149..1b8b050d958e14c400edd073d77aadc3e91e9edf 100644 (file)
--- a/v7/src/runtime/syntactic-closures.scm
+++ b/v7/src/runtime/syntactic-closures.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: syntactic-closures.scm,v 14.2 2002/02/08 17:31:58 cph Exp $
+;;; $Id: syntactic-closures.scm,v 14.3 2002/02/12 00:30:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1991, 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -1181,4 +1181,9 @@
 (define (make-name-generator)
   (let ((state (make-rename-state)))
     (lambda (identifier)
-      (rename-identifier identifier state))))
\ No newline at end of file
+      (rename-identifier identifier state))))
+
+(define (reverse-syntactic-environments environment procedure)
+  (capture-syntactic-environment
+   (lambda (closing-environment)
+     (close-syntax (procedure closing-environment) environment))))
\ No newline at end of file