diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index c3e11d94..622ac476 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -140,17 +140,11 @@ (defstruct var-spy () env - acc-vars - set-vars cap-vars - (:method accessed (me vbin sym) - (when (eq vbin.env me.env) - (pushnew sym me.acc-vars))) + (:method accessed (me vbin sym)) - (:method assigned (me vbin sym) - (when (eq vbin.env me.env) - (pushnew sym me.set-vars))) + (:method assigned (me vbin sym)) (:method captured (me vbin sym) (when (eq vbin.env me.env) |