From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 6 Jan 2019 01:46:52 +0000 (-0800)
Subject: Export dispatch-tag-print-name for convenience.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~24
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7ade9b5fd416eed708d6c6223c08b79bda30436f;p=mit-scheme.git

Export dispatch-tag-print-name for convenience.
---

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)