From d7af3bda2f5723ddcf948ce604775cadfb740ba9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 26 Jan 2021 21:04:07 -0800
Subject: 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.
---
 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 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))
-- 
cgit v1.2.3