diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-22 00:55:56 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-22 00:55:56 -0700 |
| commit | 3b7be3a126b10b09340f9fb0745ea7fbd8f3db6a (patch) | |
| tree | 682ecb554eceb247546529cb522edd0bc9d09b83 | |
| parent | 39275cb9683f3e4bcf6e1489f0e4c62391ce6389 (diff) | |
| download | txr-3b7be3a126b10b09340f9fb0745ea7fbd8f3db6a.tar.gz txr-3b7be3a126b10b09340f9fb0745ea7fbd8f3db6a.tar.bz2 txr-3b7be3a126b10b09340f9fb0745ea7fbd8f3db6a.zip | |
compiler: sys:setq bug: wrong way mov.
* share/txr/stdlib/compiler.tl (compiler comp-setq): Fix
reversed mov instruction arguments in lexical case.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |