From 98e4113f1da428841852f589f58a4acfa6098e9f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 17 Mar 2018 16:38:13 -0700
Subject: [PATCH] Restrict access to type proxies.

---
 src/runtime/runtime.pkg | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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?)
-- 
2.25.1