From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 17 Mar 2018 23:38:13 +0000 (-0700)
Subject: Restrict access to type proxies.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~205
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=98e4113f1da428841852f589f58a4acfa6098e9f;p=mit-scheme.git

Restrict access to type proxies.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 905eaf321..0e114d7bd 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3735,9 +3735,10 @@ USA.
 	  error:no-such-slot
 	  error:uninitialized-slot
 	  record-type-field-index
-	  record-type-proxy:host
-	  record-type-proxy:pathname
 	  set-record-type-fasdumpable!)
+  (export (runtime pathname)
+	  record-type-proxy:host
+	  record-type-proxy:pathname)
   (export (runtime unparser)
 	  named-list-with-unparser?
 	  named-vector-with-unparser?)