From 3bf2a6125c9ecef48a67724a86dd12b4a24f0637 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 28 Feb 2019 13:47:32 -0500
Subject: [PATCH] Fast list/vector functions also allocate mutable objs

---
 scheme/cyclone/cps-optimizations.sld | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index e8cab862..6206d89e 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1154,6 +1154,13 @@
           Cyc-utf8->string
           Cyc-string->utf8
           list->vector
+          Cyc-fast-list-1
+          Cyc-fast-list-2
+          Cyc-fast-list-3
+          Cyc-fast-list-4
+          Cyc-fast-vector-2
+          Cyc-fast-vector-3
+          Cyc-fast-vector-4
           )))
 
     (define (prim-calls-inlinable? prim-calls)