From 7ade9b5fd416eed708d6c6223c08b79bda30436f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Jan 2019 17:46:52 -0800
Subject: [PATCH] Export dispatch-tag-print-name for convenience.

---
 src/runtime/dispatch-tag.scm | 11 +++++++----
 src/runtime/runtime.pkg      |  1 +
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/runtime/dispatch-tag.scm b/src/runtime/dispatch-tag.scm
index 5c514916f..9481e218f 100644
--- a/src/runtime/dispatch-tag.scm
+++ b/src/runtime/dispatch-tag.scm
@@ -178,10 +178,13 @@ USA.
    (lambda (tag)
      (if (dispatch-metatag? tag) 'dispatch-metatag 'dispatch-tag))
    (lambda (tag)
-     (list (let ((name (dispatch-tag-name tag)))
-	     (if (symbol? name)
-		 (strip-angle-brackets name)
-		 name))))))
+     (list (dispatch-tag-print-name tag)))))
+
+(define (dispatch-tag-print-name tag)
+  (let ((name (dispatch-tag-name tag)))
+    (if (symbol? name)
+	(strip-angle-brackets name)
+	name)))
 
 (define-pp-describer dispatch-tag?
   (lambda (tag)
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 56e651b91..1000c23ee 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -5364,6 +5364,7 @@ USA.
 	  dispatch-tag-extra-ref
 	  dispatch-tag-metatag
 	  dispatch-tag-name
+	  dispatch-tag-print-name
 	  dispatch-tag?
 	  make-dispatch-metatag)
   (export (runtime predicate)
-- 
2.25.1