From f552cac660fc0fd8fe6deaeb33180d653f545f55 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 12 May 2018 22:30:48 -0700
Subject: [PATCH] Clean up printer bindings.

---
 src/runtime/runtime.pkg | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

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