From 7b3dc0b0f3cfb60970a246f13ea7e43447ded557 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 14 May 2015 22:19:26 -0400
Subject: [PATCH] Emit call/cc for scheme base

---
 cyclone.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cyclone.scm b/cyclone.scm
index b583e75f..fd6c6ca9 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -125,7 +125,7 @@
                      (cps-convert expr))
                    input-program)))
         (cond
-         (program?
+         ((and library? (equal? lib-name '(scheme base)))
            (set! globals (cons 'call/cc globals))
            (set! module-globals (cons 'call/cc module-globals))
            (set! input-program 
@@ -137,7 +137,7 @@
                  (lambda (k f) (f k (lambda (_ result) (k result)))))
                 cps)))
          (else
-           ;; Compiling a library, no need for call/cc yet
+           ;; No need for call/cc yet
            (set! input-program cps))))
       (trace:info "---------------- after CPS:")
       (trace:info input-program) ;pretty-print