From 7058d049384311d03836c6f71f225e99ec1ff040 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 28 Feb 2021 08:59:11 -0800
Subject: 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.
---
 share/txr/stdlib/compiler.tl | 4 ++--
 1 file 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
-- 
cgit v1.2.3