From 5c82cd7aefa7dcfb808248ececb38e086f9dd8fb Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 4 Jun 2015 22:20:26 -0400
Subject: [PATCH] Experimental stub for call-with-values

---
 cyclone.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/cyclone.scm b/cyclone.scm
index b5141622..5b6dc8c2 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -133,13 +133,18 @@
            (set! globals (cons 'call/cc globals))
            (set! module-globals (cons 'call/cc module-globals))
            (set! input-program 
+             ;(cons
+             ; '(define call-with-values
+             ;   (lambda (k producer consumer)
+             ;     (producer
+             ; )
              (cons
                ;; call/cc must be written in CPS form, so it is added here
                ;; TODO: prevents this from being optimized-out
                ;; TODO: will this cause issues if another var is assigned to call/cc?
                '(define call/cc
                  (lambda (k f) (f k (lambda (_ result) (k result)))))
-                cps)))
+                cps)));)
          (else
            ;; No need for call/cc yet
            (set! input-program cps))))