From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 Mar 2005 05:21:21 +0000 (+0000)
Subject: Fix typo: order of record-type field names was wrong.
X-Git-Tag: 20090517-FFI~1359
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6b2cc51a262a29befc43cc5eed6c139edb7e2b6f;p=mit-scheme.git

Fix typo: order of record-type field names was wrong.
---

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index d15647c46..28db8ece2 100644
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.52 2005/03/19 05:08:17 cph Exp $
+$Id: record.scm,v 1.53 2005/03/19 05:21:21 cph Exp $
 
 Copyright 1989,1990,1991,1993,1994,1996 Massachusetts Institute of Technology
 Copyright 1997,2002,2003,2004,2005 Massachusetts Institute of Technology
@@ -70,7 +70,7 @@ USA.
 	  (%record #f
 		   #f
 		   "record-type"
-		   '#(NAME DISPATCH-TAG FIELD-NAMES DEFAULT-INITS EXTENSION)
+		   '#(DISPATCH-TAG NAME FIELD-NAMES DEFAULT-INITS EXTENSION)
 		   (vector-cons 5 (lambda () #f))
 		   #f)))
     (set! record-type-type-tag (make-dispatch-tag type))