From 6f97d019ad1fbcc39f5d0881fb37f9b0be1b4373 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 3 Feb 2016 03:20:33 -0500
Subject: [PATCH] Do not constant-fold cons

---
 scheme/cyclone/transforms.sld | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 350af8ec..6162cc35 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -574,6 +574,7 @@
                   set-global!
                   set-cell!
                   cell
+                  cons
                   set-car!
                   set-cdr!
                   string-set!