From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Mar 2003 05:05:52 +0000 (+0000)
Subject: Fix mistake in definition of DEFINE-RECORD-TYPE: fields are in CDDDDR
X-Git-Tag: 20090517-FFI~2003
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=30f1b24c421da9955dca9937b2518a5948f505ce;p=mit-scheme.git

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 7ce32a634..ecdb6c280 100644
--- 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 6fb24a919..d3947b138 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.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)))