diff options
| -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))) |