diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 6a778ed7..6f0211ad 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -566,7 +566,8 @@ (frsize (len lexsyms)) (seq (eq sym 'let*)) (nenv (new env up env co me)) - (fenv (if seq nenv env))) + (eenv (unless seq (new env up env co me))) + (fenv (if seq nenv eenv))) (unless seq (each ((lsym lexsyms)) nenv.(extend-var lsym))) |