From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 17 Apr 1995 03:55:03 +0000 (+0000)
Subject: (append (map f l) e) => (map* e f l)
X-Git-Tag: 20090517-FFI~6440
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=35b6727adabec2b3dc2c57388bfc040fe8aba38e;p=mit-scheme.git

(append (map f l) e) => (map* e f l)
---

diff --git a/v8/src/compiler/midend/closconv.scm b/v8/src/compiler/midend/closconv.scm
index 6a746176a..2a9485e09 100644
--- a/v8/src/compiler/midend/closconv.scm
+++ b/v8/src/compiler/midend/closconv.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: closconv.scm,v 1.4 1995/01/22 04:51:43 adams Exp $
+$Id: closconv.scm,v 1.5 1995/04/17 03:55:03 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -752,7 +752,7 @@ MIT in each case. |#
 				  name*)))))
 			circular)))
 		   closed circ-results circular)))))
-       (let ((envs (append (lmap closconv/binding/value trivial) envs)))
+       (let ((envs (map* envs closconv/binding/value trivial)))
 	 (for-each (lambda (closed-env)
 		     (for-each closconv/rewrite!
 			       (closconv/env/children closed-env)))