diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index b7b51152..c8563bea 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -677,7 +677,7 @@ (ifrags (collect-each ((op opt-pars)) (tree-bind (var-sym : init-form have-sym) op (let ((vbind nenv.(lookup-var var-sym))) - me.(compile vbind.loc env init-form))))) + me.(compile vbind.loc nenv init-form))))) (opt-code (append-each ((op opt-pars) (ifrg ifrags)) (tree-bind (var-sym : init-form have-sym) op |