diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-26 21:04:07 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-26 21:04:07 -0800 |
| commit | d7af3bda2f5723ddcf948ce604775cadfb740ba9 (patch) | |
| tree | ce5bc46cce802d5c09911d32fcde74a5ce8dc8f5 | |
| parent | 5b3089cd4438963c012c83d3aee38beadc13d06d (diff) | |
| download | txr-d7af3bda2f5723ddcf948ce604775cadfb740ba9.tar.gz txr-d7af3bda2f5723ddcf948ce604775cadfb740ba9.tar.bz2 txr-d7af3bda2f5723ddcf948ce604775cadfb740ba9.zip | |
compiler: get rid of vector from swtch syntax.
* share/txr/stdlib/compiler.tl (comp-switch): Convert the list
of labels for the switch instruction from vector to list.
This ends up a vector due to contagion from the sys:switch
special operator syntax.
| -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 4b08cdf8..cf885b25 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -569,7 +569,7 @@ me.(maybe-free-treg treg oreg) (new (frag oreg ^(,*ifrag.code - (swtch ,ifrag.oreg ,*clabels) + (swtch ,ifrag.oreg ,*(list-vec clabels)) ,*(mappend .code cfrags) ,*(when (and shared last-cfrag) (maybe-mov oreg last-cfrag.oreg)) |