diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 0f2ad9de..75070f3b 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -69,13 +69,11 @@ (set me.co me.up.co)) me.co.(new-env me)) - (:method lookup-var (me sym : mark-used) + (:method lookup-var (me sym) (condlet (((cell (assoc sym me.vb))) - (let ((bi (cdr cell))) - (if mark-used (set bi.used t)) - bi)) - (((up me.up)) up.(lookup-var sym mark-used)) + (cdr cell)) + (((up me.up)) up.(lookup-var sym)) (t nil))) (:method lookup-fun (me sym : mark-used) |