From 305bf82520925f5d017ca9925eba82cca317af1f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 23 Mar 2018 06:34:15 -0700
Subject: compiler: bug: dynamic var assignment.

* share/txr/stdlib/compiler.tl (compiler comp-setq): Fix
reversed setv instruction operands.
---
 share/txr/stdlib/compiler.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index c8125924..7d8a7bf9 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -218,7 +218,7 @@
                  ^(,*vfrag.code
                    ,*(if bind
                        (maybe-mov vloc vfrag.oreg)
-                       ^((setv ,vloc ,vfrag.oreg))))
+                       ^((setv ,vfrag.oreg ,vloc))))
                  (uni (list sym) vfrag.fvars)
                  vfrag.ffuns)))))
 
-- 
cgit v1.2.3