diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-27 06:41:36 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-27 06:41:36 -0800 |
| commit | 9b880e894c7f74a114bd1d5bc094d5e241b83a74 (patch) | |
| tree | 23d31192ec17be0241f239455732161aa5117fa6 /share | |
| parent | 781e27b5a11beb7341b8453c91bf18d1cc6ff741 (diff) | |
| download | txr-9b880e894c7f74a114bd1d5bc094d5e241b83a74.tar.gz txr-9b880e894c7f74a114bd1d5bc094d5e241b83a74.tar.bz2 txr-9b880e894c7f74a114bd1d5bc094d5e241b83a74.zip | |
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.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 3 |
1 files changed, 1 insertions, 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))) |