From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 6 Jan 2019 01:47:40 +0000 (-0800)
Subject: Use dispatch-tag-print-name.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~23
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=785c71c2ba0166fce517c415e6e5ae2ff044e5d0;p=mit-scheme.git

Use dispatch-tag-print-name.
---

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)