From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 28 Feb 1989 18:36:10 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~12256
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ea1286b56912931c32a72c75c437f6d32942e752;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 3af220e61..572ff3f2a 100644
--- 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)