From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 May 1991 02:25:42 +0000 (+0000)
Subject: If type-name of a record is a string, don't wrap it with doublequote
X-Git-Tag: 20090517-FFI~10672
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b55cceb246acbadebbf80753469c7388f97a6e5;p=mit-scheme.git

If type-name of a record is a string, don't wrap it with doublequote
characters when it is displayed.
---

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 991ab4a87..3b702f76f 100644
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/record.scm,v 1.8 1991/02/15 18:06:42 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/record.scm,v 1.9 1991/05/06 02:25:42 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -50,7 +50,9 @@ MIT in each case. |#
 		(let ((predicate (record-predicate record-type))
 		      (record-name
 		       (string-append "record of type "
-				      (write-to-string type-name))))
+				      (if (string? type-name)
+					  type-name
+					  (write-to-string type-name)))))
 		  (lambda (record)
 		    (if (not (predicate record))
 			(error:wrong-type-argument record record-name