From c564400f5ab628eaa28f53438c2ec407021c08a7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 21 Dec 2018 21:48:57 -0500
Subject: [PATCH] Classify apply functions as mutators

We don't know if the functions they call will mutate or not, so err on the side of caution. Not sure this is really necessary since they receive a cont and therefore cannot be inlined anyway.
---
 scheme/cyclone/primitives.sld | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index a77cfbe1..f7e4b35f 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -61,6 +61,8 @@
       (memq 
         exp
        '(
+         apply
+         Cyc-fast-apply
          Cyc-set-cvar!
          Cyc-spawn-thread!
          Cyc-end-thread!