From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 Jan 2018 04:04:21 +0000 (-0800)
Subject: Strip angle brackets off of dispatch-tag names when printing.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~347
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c672b7537d7cda08aa17ef4ae213dfe769d61c1;p=mit-scheme.git

Strip angle brackets off of dispatch-tag names when printing.
---

diff --git a/src/runtime/gentag.scm b/src/runtime/gentag.scm
index 46d41b7d5..2826b78ea 100644
--- a/src/runtime/gentag.scm
+++ b/src/runtime/gentag.scm
@@ -170,9 +170,12 @@ USA.
 (define-unparser-method dispatch-tag?
   (simple-unparser-method
    (lambda (tag)
-     (if (dispatch-metatag? tag) 'metatag 'tag))
+     (if (dispatch-metatag? tag) 'dispatch-metatag 'dispatch-tag))
    (lambda (tag)
-     (list (dispatch-tag-name tag)))))
+     (list (let ((name (dispatch-tag-name tag)))
+	     (if (symbol? name)
+		 (strip-angle-brackets name)
+		 name))))))
 
 (define-pp-describer dispatch-tag?
   (lambda (tag)