From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Feb 2002 00:30:51 +0000 (+0000)
Subject: Implement REVERSE-SYNTACTIC-ENVIRONMENTS.  Add bindings for
X-Git-Tag: 20090517-FFI~2255
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=105c58ec8880db37f0216fac408624dd829b5c1b;p=mit-scheme.git

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 8eee8d1d4..4867f029e 100644
--- 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 e3170f0da..0154b6349 100644
--- 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 0950939bc..1b8b050d9 100644
--- 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