From ea1286b56912931c32a72c75c437f6d32942e752 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 28 Feb 1989 18:36:10 +0000
Subject: [PATCH] *** empty log message ***

---
 v7/src/runtime/record.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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)
-- 
2.25.1