From 35b6727adabec2b3dc2c57388bfc040fe8aba38e Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 17 Apr 1995 03:55:03 +0000 Subject: [PATCH] (append (map f l) e) => (map* e f l) --- v8/src/compiler/midend/closconv.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.25.1