From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 27 Sep 2009 10:40:14 +0000 (-0700)
Subject: Strip angle brackets off record-type name when printing record.
X-Git-Tag: 20100708-Gtk~305
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e46687c6a99460ec9bd4e19ede56b38453cabe72;p=mit-scheme.git

Strip angle brackets off record-type name when printing record.
---

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index bd3b56f5c..78301dfd4 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -87,7 +87,11 @@ USA.
 	(let ((tag (cadr tags)))
 	  (cond ((record-type? (dispatch-tag-contents tag))
 		 (standard-unparser-method
-		  (%record-type-name (dispatch-tag-contents tag))
+		  (let ((name (%record-type-name (dispatch-tag-contents tag))))
+		    (if (and (string-prefix? "<" name)
+			     (string-suffix? ">" name))
+			(substring name 1 (fix:- (string-length name) 1))
+			name))
 		  #f))
 		((eq? tag record-type-type-tag)
 		 (standard-unparser-method 'RECORD-TYPE