From 5c672b7537d7cda08aa17ef4ae213dfe769d61c1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Jan 2018 20:04:21 -0800
Subject: [PATCH] Strip angle brackets off of dispatch-tag names when printing.

---
 src/runtime/gentag.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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