From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 31 Jan 1994 02:49:45 +0000 (+0000)
Subject: Modify make-record-type to accept the print-method as an optional
X-Git-Tag: 20090517-FFI~7303
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=73dc3dea9e1fabe1052ba081c65f50a1d0dd13bd;p=mit-scheme.git

Modify make-record-type to accept the print-method as an optional
argument.
---

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index e9168bae7..5d8521d55 100644
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.21 1994/01/29 21:54:17 adams Exp $
+$Id: record.scm,v 1.22 1994/01/31 02:49:45 gjr Exp $
 
-Copyright (c) 1989-93 Massachusetts Institute of Technology
+Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -114,7 +114,7 @@ MIT in each case. |#
    (primitive-object-set-type (ucode-type constant)
 			      (primitive-object-ref record-type 0))))
 
-(define (make-record-type type-name field-names)
+(define (make-record-type type-name field-names #!optional print-method)
   (guarantee-list-of-unique-symbols field-names 'MAKE-RECORD-TYPE)
   (let ((record-type
 	 (%record record-type-type
@@ -127,6 +127,8 @@ MIT in each case. |#
     (add-to-population! record-type-population record-type)
     (if record-type-initialization-hook
 	(record-type-initialization-hook record-type))
+    (if (not (default-object? print-method))
+	(set-record-type-unparser-method! record-type print-method))
     record-type))
 
 (define (record-type? object)