Fix mistake in definition of DEFINE-RECORD-TYPE: fields are in CDDDDR

of form, not in the fifth element.

diff --git a/v7/src/edwin/edtstr.scm b/v7/src/edwin/edtstr.scm
index 7ce32a63408d245dcf2772cb66e74aa9b5ecb8f4..ecdb6c280ff4b3fe6e581cb435244e481f04233e 100644 (file)
--- a/v7/src/edwin/edtstr.scm
+++ b/v7/src/edwin/edtstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edtstr.scm,v 1.29 2003/02/14 18:28:12 cph Exp $
+$Id: edtstr.scm,v 1.30 2003/03/06 05:05:52 cph Exp $
 
 Copyright 1989,1990,1991,1992,2003 Massachusetts Institute of Technology
 
@@ -116,8 +116,8 @@ USA.
 (define-record-type button-record-type
   (%%make-button number down?)
   button?
-  ((number button/number)
-   (down? button/down?)))
+  (number button/number)
+  (down? button/down?))
 
 (define make-down-button)
 (define make-up-button)

diff --git a/v7/src/runtime/mit-syntax.scm b/v7/src/runtime/mit-syntax.scm
index 6fb24a91903f776121e7f9e94cffe44cb8427acc..d3947b138ce93b6f35405e13464d612b0c905f1c 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.15 2003/02/14 18:48:13 cph Exp $
+$Id: mit-syntax.scm,v 14.16 2003/03/06 05:04:56 cph Exp $
 
 Copyright 1989,1990,1991,2001,2002,2003 Massachusetts Institute of Technology
 
@@ -368,13 +368,13 @@ USA.
     (if (syntax-match? '(IDENTIFIER
                         (IDENTIFIER * IDENTIFIER)
                         IDENTIFIER
-                        (* (IDENTIFIER IDENTIFIER ? IDENTIFIER)))
+                        * (IDENTIFIER IDENTIFIER ? IDENTIFIER))
                       (cdr form))
        (let ((type (cadr form))
              (constructor (car (caddr form)))
              (c-tags (cdr (caddr form)))
              (predicate (cadddr form))
-             (fields (car (cddddr form)))
+             (fields (cddddr form))
              (de (rename 'DEFINE)))
          `(,(rename 'BEGIN)
            (,de ,type (,(rename 'MAKE-RECORD-TYPE) ',type ',(map car fields)))