From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 May 2018 05:30:48 +0000 (-0700)
Subject: Clean up printer bindings.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~59
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f552cac660fc0fd8fe6deaeb33180d653f545f55;p=mit-scheme.git

Clean up printer bindings.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index d4baa674f..cd69f2b5b 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4835,7 +4835,7 @@ USA.
 (define-package (runtime printer)
   (files "printer")
   (parent (runtime))
-  (export () deprecated:unparser
+  (export () deprecated:printer
 	  *unparse-abbreviate-quotations?*
 	  *unparse-compound-procedure-names?*
 	  *unparse-primitives-by-name?*
@@ -4846,7 +4846,8 @@ USA.
 	  *unparser-list-breadth-limit*
 	  *unparser-list-depth-limit*
 	  *unparser-radix*
-	  *unparser-string-length-limit*)
+	  *unparser-string-length-limit*
+	  with-current-unparser-state)
   (export ()
 	  param:print-char-in-unicode-syntax?
 	  param:print-compound-procedure-names?
@@ -4859,9 +4860,7 @@ USA.
 	  param:printer-list-breadth-limit
 	  param:printer-list-depth-limit
 	  param:printer-radix
-	  param:printer-string-length-limit
-	  user-object-type
-	  with-current-unparser-state)
+	  param:printer-string-length-limit)
   (export (runtime boot-definitions)
 	  get-param:print-with-maximum-readability?)
   (export (runtime global-database)
@@ -4873,7 +4872,9 @@ USA.
 	  get-param:printer-list-depth-limit
 	  prefix-pair?)
   (export (runtime record)
-	  (rtd:unparser-state <context>)))
+	  (rtd:unparser-state <context>))
+  (export (runtime swank)
+	  user-object-type))
 
 (define-package (runtime unsyntaxer)
   (files "unsyn")