From 2da2317a91c285b0cbcf6ea3f6d511a6b0f4c4f6 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 18 Apr 2017 13:21:19 +0000
Subject: [PATCH] Rename param to "cps?"

---
 scheme/cyclone/cgen.sld | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 6bf71876..3235795a 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -864,9 +864,9 @@
 
    (c-code/vars "" (list ""))))
 
-(define (c-compile-raw-global-lambda exp append-preamble cont trace . inline?)
+(define (c-compile-raw-global-lambda exp append-preamble cont trace . cps?)
    (let* ((precompiled-sym
-            (if (equal? inline? '(#t))
+            (if (equal? cps? '(#f))
                 'precompiled-inline-lambda
                 'precompiled-lambda))
           (lambda-data
@@ -900,7 +900,7 @@
            append-preamble 
            cont 
            trace
-           #t)))) ;; Inline this one
+           #f)))) ;; Inline this one; CPS will not be used
      ;; Add this define-c
      (add-global 
        (define->var exp)