From ad915e624dcd2a4c2911e36a1818f62dec43e142 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Mar 2003 21:24:45 +0000
Subject: [PATCH] Export some syntactic-environment procedures.

---
 v7/src/runtime/runtime.pkg | 6 +++---
 v7/src/runtime/unicode.scm | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 9503e2964..d3ad735be 100644
--- 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 61da96828..640853a17 100644
--- 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.
 
 ;;;; 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.
 
 ;;;; 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))
 
-- 
2.25.1