From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Dec 2002 18:55:07 +0000 (+0000)
Subject: Fix thinko in DEFINE-RECORD-TYPE.
X-Git-Tag: 20090517-FFI~2108
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d6befdd05282eff40975db64500cc1883bc81ca2;p=mit-scheme.git

Fix thinko in DEFINE-RECORD-TYPE.
---

diff --git a/v7/src/runtime/mit-syntax.scm b/v7/src/runtime/mit-syntax.scm
index 389b751a9..b90928163 100644
--- a/v7/src/runtime/mit-syntax.scm
+++ b/v7/src/runtime/mit-syntax.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: mit-syntax.scm,v 14.9 2002/11/20 19:46:21 cph Exp $
+;;; $Id: mit-syntax.scm,v 14.10 2002/12/13 18:55:07 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1991, 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -371,7 +371,7 @@
 	      (constructor (car (caddr form)))
 	      (c-tags (cdr (caddr form)))
 	      (predicate (cadddr form))
-	      (fields (cddddr form))
+	      (fields (car (cddddr form)))
 	      (de (rename 'DEFINE)))
 	  `(,(rename 'BEGIN)
 	    (,de ,type (,(rename 'MAKE-RECORD-TYPE) ',type ',(map car fields)))