From 9b880e894c7f74a114bd1d5bc094d5e241b83a74 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 27 Jan 2021 06:41:36 -0800
Subject: compiler: eliminate one local in compiler source.
* share/txr/stdlib/compiler.tl (compiler comp-let): The eenv
variable is used only in one place; the immediately next
binding for fenv. Let's eliminate it.
---
share/txr/stdlib/compiler.tl | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index cf885b25..65ce119c 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -722,8 +722,7 @@
(frsize (len lexsyms))
(seq (eq sym 'let*))
(nenv (new env up env co me))
- (eenv (unless seq (new env up env co me)))
- (fenv (if seq nenv eenv)))
+ (fenv (if seq nenv (new env up env co me))))
(unless seq
(each ((lsym lexsyms))
nenv.(extend-var lsym)))
--
cgit v1.2.3