From 9a9bb4079fd70b6a50937836b781482c40ab6291 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 1 Aug 2017 18:08:12 -0400
Subject: [PATCH] Disabling cyc-seq for now, since it breaks gcbench

Compiling with this seems to cause crashes (segfaults, etc) on the gcbench program.
---
 scheme/cyclone/cps-optimizations.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index d825a903..5164e4eb 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1521,7 +1521,8 @@
           (cond
             ;; If the lambda argument is not used, flag so the C code is 
             ;; all generated within the same function
-            ((and (> optimization-level 0)
+            ((and #f
+                  (> optimization-level 0)
                   (eq? (lambda-formals-type fn) 'args:fixed)
                   (pair? (lambda-formals->list fn))
                   (with-var