From b0e6c42eb1bf9ca165f4206f96d1e4a6bf40d26d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 22 Nov 2018 17:33:06 -0500
Subject: [PATCH] Added prim->c-func-uses-alloca?

---
 scheme/cyclone/primitives.sld | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index 992acef1..63da05de 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -17,6 +17,7 @@
     ;; TODO: replace w/list that cannot be precomputed: precompute-prim-app?
     prim-call?
     prim->c-func
+    prim->c-func-uses-alloca?
     prim/data-arg?
     prim/c-var-pointer
     prim/c-var-assign
@@ -457,6 +458,18 @@
     (define (prim-call? exp)
       (and (list? exp) (prim? (car exp))))
 
+    (define (prim->c-func-uses-alloca? p use-alloca?)
+      (and
+        use-alloca?
+        (member 
+           p 
+          '(cons
+            Cyc-fast-list-1
+            Cyc-fast-list-2
+            Cyc-fast-list-3
+            Cyc-fast-list-4
+            cell))))
+
     (define (prim->c-func p use-alloca?)
       (cond
          (use-alloca?