Export some syntactic-environment procedures.

diff --git a/v7/src/runtime/regexp.scm b/v7/src/runtime/regexp.scm
index 83c6f80c5e75b72c6d54d666b0255d17ff66f3a7..60b96ef0ade0f2e5b15e5f8ac5dc909a3714a063 100644 (file)
--- 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 144b67e026af3ffcaa1139c93931131dc4ea22aa..9503e2964c08e67cdfa56ac69e9a9fed3aade7f9 100644 (file)
--- 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))