From 785c71c2ba0166fce517c415e6e5ae2ff044e5d0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Jan 2019 17:47:40 -0800
Subject: [PATCH] Use dispatch-tag-print-name.

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

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index bfaee3524..a6e711c3d 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -521,15 +521,14 @@ USA.
 (define-print-method record?
   (standard-print-method
    (lambda (record)
-     (strip-angle-brackets
-      (dispatch-tag-name (record-type-descriptor record))))))
+     (dispatch-tag-print-name (record-type-descriptor record)))))
 
 (add-boot-init!
  (lambda ()
    (define-print-method record-type?
      (standard-print-method 'record-type
        (lambda (type)
-	 (list (dispatch-tag-name type)))))))
+	 (list (dispatch-tag-print-name type)))))))
 
 (define-pp-describer %record?
   (lambda (record)
-- 
2.25.1