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 | b9c1d0d1f0f1c3694d90924e03f78522eccc063f (patch) | |
| tree | 23d31192ec17be0241f239455732161aa5117fa6 | |
| parent | 6eef14615db7e3390220e110a8b20595e0bcfc54 (diff) | |
| download | txr-b9c1d0d1f0f1c3694d90924e03f78522eccc063f.tar.gz txr-b9c1d0d1f0f1c3694d90924e03f78522eccc063f.tar.bz2 txr-b9c1d0d1f0f1c3694d90924e03f78522eccc063f.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.
| -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))) |