From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Mar 2003 21:22:51 +0000 (+0000)
Subject: Export some syntactic-environment procedures.
X-Git-Tag: 20090517-FFI~1983
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c151c99e0c01431fa30e8c325e08c9a496fed22;p=mit-scheme.git

Export some syntactic-environment procedures.
---

diff --git a/v7/src/runtime/regexp.scm b/v7/src/runtime/regexp.scm
index 83c6f80c5..60b96ef0a 100644
--- a/v7/src/runtime/regexp.scm
+++ b/v7/src/runtime/regexp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: regexp.scm,v 1.12 2003/02/14 18:28:33 cph Exp $
+$Id: regexp.scm,v 1.13 2003/03/07 21:22:51 cph Exp $
 
 Copyright 1986, 1989-1999 Massachusetts Institute of Technology
 
@@ -34,7 +34,7 @@ USA.
   (set! registers (make-vector 20 #f))
   unspecific)
 
-(define-structure (re-registers (type-descriptor re-registers-rtd))
+(define-structure (re-registers (type-descriptor <re-registers>))
   (vector #f read-only #t))
 
 (define (guarantee-re-registers object procedure)
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 144b67e02..9503e2964 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.432 2003/03/07 18:34:43 cph Exp $
+$Id: runtime.pkg,v 14.433 2003/03/07 21:19:39 cph Exp $
 
 Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright (c) 1993,1994,1995,1996,1997 Massachusetts Institute of Technology
@@ -3800,10 +3800,12 @@ USA.
 	 "syntax-check")
   (parent (runtime))
   (export ()
+	  <syntactic-closure>
 	  call-with-syntax-error-procedure
 	  capture-syntactic-environment
 	  close-syntax
 	  er-macro-transformer->expander
+	  guarantee-syntactic-environment
 	  identifier->symbol
 	  identifier=?
 	  identifier?
@@ -3817,20 +3819,24 @@ USA.
 	  non-hygienic-macro-transformer->expander
 	  parse-mit-lambda-list
 	  r4rs-lambda-list?
-	  sc-macro-transformer->expander
 	  reverse-syntactic-environments
 	  rsc-macro-transformer->expander
+	  sc-macro-transformer->expander
 	  strip-syntactic-closures
 	  supported-srfi-features
-	  syntactic-closure-rtd
 	  syntactic-closure/environment
-	  syntactic-closure/free-names
 	  syntactic-closure/form
+	  syntactic-closure/free-names
 	  syntactic-closure?
-	  synthetic-identifier?
+	  syntactic-environment->environment
+	  syntactic-environment/lookup
+	  syntactic-environment/top-level?
+	  syntactic-environment?
 	  syntax
 	  syntax*
-	  syntax-match?)
+	  syntax-match?
+	  synthetic-identifier?
+	  )
   (export (runtime defstruct)
 	  define-expander
 	  parse-mit-lambda-list))