From f6347de299b1f810d3e13f8dc89c9ac13ddbdc23 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 17 Dec 2015 23:56:12 -0500
Subject: [PATCH] Do not constant fold thread functions

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

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 8630f6b6..024f320b 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -556,6 +556,8 @@
                   Cyc-get-cvar
                   Cyc-set-cvar!
                   Cyc-cvar?
+                  Cyc-spawn-thread!
+                  Cyc-end-thread!
                   apply
                   %halt
                   exit