From 3b7be3a126b10b09340f9fb0745ea7fbd8f3db6a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 22 Mar 2018 00:55:56 -0700
Subject: compiler: sys:setq bug: wrong way mov.

* share/txr/stdlib/compiler.tl (compiler comp-setq): Fix
reversed mov instruction arguments in lexical case.
---
 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 05ba8247..e6f7acda 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -213,7 +213,7 @@
       (new (frag vloc
                  ^(,*vfrag.code
                    ,*(if bind
-                       (maybe-mov vfrag.oreg vloc)
+                       (maybe-mov vloc vfrag.oreg)
                        ^((setv ,vloc ,vfrag.oreg))))
                  (uni (list sym) vfrag.fvars)
                  vfrag.ffuns)))))
-- 
cgit v1.2.3