From 8684c93e2009880aa32b2671fd982030a82d04aa Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 2 Aug 2017 13:07:52 +0000
Subject: [PATCH] Possible TODO

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

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 05cf4d4e..1948d24e 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1533,6 +1533,7 @@
                     (lambda (x)
                       (or (not (pair? x)) ;; Should never happen
                           (and (prim-call? x)
+                               ;; TODO: necessary for gcbench stability??? (not (prim:mutates? (car x)))
                                (not (prim:cont? (car x))))))
                     args))
              `(Cyc-seq