diff options
| -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)) |