Export dispatch-tag-print-name for convenience.

diff --git a/src/runtime/dispatch-tag.scm b/src/runtime/dispatch-tag.scm
index 5c514916f7e3ce181362bb8657e5d9e6bae107d5..9481e218fe2ab2dc6a085f80e0c7a5510bed7ba7 100644 (file)
--- 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 56e651b91aff0587a69e97c0cc236e0d7599c5eb..1000c23eec7dde98d58c1eb5877098d1315da8e9 100644 (file)
--- 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)