Export some syntactic-environment procedures.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 9503e2964c08e67cdfa56ac69e9a9fed3aade7f9..d3ad735be668592938f23737a2a96f4ab698effc 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.433 2003/03/07 21:19:39 cph Exp $
+$Id: runtime.pkg,v 14.434 2003/03/07 21:23:46 cph Exp $
 
 Copyright (c) 1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright (c) 1993,1994,1995,1996,1997 Massachusetts Institute of Technology
@@ -4489,6 +4489,8 @@ USA.
   (files "unicode")
   (parent (runtime))
   (export ()
+         <alphabet>
+         <wide-string>
          8-bit-alphabet?
          alphabet
          alphabet+
@@ -4496,7 +4498,6 @@ USA.
          alphabet->char-set
          alphabet->code-points
          alphabet->string
-         alphabet-rtd
          alphabet?
          call-with-wide-output-string
          char-in-alphabet?
@@ -4538,7 +4539,6 @@ USA.
          wide-string-index?
          wide-string-length
          wide-string-ref
-         wide-string-rtd
          wide-string-set!
          wide-string?
          write-utf16-be-char

diff --git a/v7/src/runtime/unicode.scm b/v7/src/runtime/unicode.scm
index 61da96828ad8e76c4149032621661906f744fa4c..640853a17939e45d8bc0191bd65360a7bdbc4df3 100644 (file)
--- a/v7/src/runtime/unicode.scm
+++ b/v7/src/runtime/unicode.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unicode.scm,v 1.7 2003/03/01 05:38:22 cph Exp $
+$Id: unicode.scm,v 1.8 2003/03/07 21:24:45 cph Exp $
 
 Copyright 2001,2003 Massachusetts Institute of Technology
 
@@ -154,7 +154,7 @@ USA.
 \f
 ;;;; Alphabets
 
-(define-structure (alphabet (type-descriptor alphabet-rtd))
+(define-structure (alphabet (type-descriptor <alphabet>))
   (low #f read-only #t)
   (high1 #f read-only #t)
   (high2 #f read-only #t))
@@ -515,7 +515,7 @@ USA.
 \f
 ;;;; Unicode strings
 
-(define-structure (wide-string (type-descriptor wide-string-rtd)
+(define-structure (wide-string (type-descriptor <wide-string>)
                               (constructor %make-wide-string))
   (contents #f read-only #t))