From 0b55cceb246acbadebbf80753469c7388f97a6e5 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 6 May 1991 02:25:42 +0000 Subject: [PATCH] If type-name of a record is a string, don't wrap it with doublequote characters when it is displayed. --- v7/src/runtime/record.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.25.1