Fix thinko in DEFINE-RECORD-TYPE.

diff --git a/v7/src/runtime/mit-syntax.scm b/v7/src/runtime/mit-syntax.scm
index 389b751a94443f871cd9ae68d3c06d0561ac0122..b90928163d40db723f987b6e8b67965ac0708a6b 100644 (file)
--- 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)))