*** empty log message ***

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 3af220e613274e69df60e233b2f97c91ee4707c2..572ff3f2a6fca7da75f550d6470e9ecdf8707e5d 100644 (file)
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/record.scm,v 1.1 1989/02/28 18:34:09 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/record.scm,v 1.2 1989/02/28 18:36:10 cph Rel $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -77,8 +77,7 @@ MIT in each case. |#
 
     (define (describe record)
       (guarantee record)
-      (map (lambda (name index)
-            (list name (vector-ref record (field-index name))))
+      (map (lambda (name) (list name (vector-ref record (field-index name))))
           field-names))
 
     (define (field-index name)