From d6befdd05282eff40975db64500cc1883bc81ca2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Dec 2002 18:55:07 +0000
Subject: [PATCH] Fix thinko in DEFINE-RECORD-TYPE.

---
 v7/src/runtime/mit-syntax.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)))
-- 
2.25.1