diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-28 08:59:11 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-28 08:59:11 -0800 |
commit | 7058d049384311d03836c6f71f225e99ec1ff040 (patch) | |
tree | 74eb65376e8497432e20368db3466fb687dd8cf7 | |
parent | 94c483974ca4328bf8402ddf65308e63afdf22b4 (diff) | |
download | txr-7058d049384311d03836c6f71f225e99ec1ff040.tar.gz txr-7058d049384311d03836c6f71f225e99ec1ff040.tar.bz2 txr-7058d049384311d03836c6f71f225e99ec1ff040.zip |
compiler: bug sys:setqf registering free variable.
* share/txr/stdlib/compiler.tl (compiler comp-setqf): When an
assignment to a function is compiled, we must register the
occurrence of a free function, not a free variable.
-rw-r--r-- | share/txr/stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 4d08b526..f8b3469e 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -546,8 +546,8 @@ ^(,*vfrag.code (getfb ,treg ,fname) (gcall ,treg ,rplcd ,treg ,vfrag.oreg)) - (uni (list sym) vfrag.fvars) - vfrag.ffuns)))))) + vfrag.fvars + (uni (list sym) vfrag.ffuns))))))) (defmeth compiler comp-cond (me oreg env form) (tree-case form |