diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-23 06:34:15 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-23 06:34:15 -0700 |
| commit | 95b4df1578734e04dd45c553ed4545a5f1f9e372 (patch) | |
| tree | 47026d0936ad2340f4ffe914ea21cf518cdb7e33 | |
| parent | 24d4e4ba60119ad8d54998707e409728a425197e (diff) | |
| download | txr-95b4df1578734e04dd45c553ed4545a5f1f9e372.tar.gz txr-95b4df1578734e04dd45c553ed4545a5f1f9e372.tar.bz2 txr-95b4df1578734e04dd45c553ed4545a5f1f9e372.zip | |
compiler: bug: dynamic var assignment.
* share/txr/stdlib/compiler.tl (compiler comp-setq): Fix
reversed setv instruction operands.
| -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 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))))) |