From c6d9bea3274d53133607feef1838c9722675eba3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 24 Mar 2015 17:43:18 -0400
Subject: [PATCH] Added call-with-current-continuation

---
 trans.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/trans.scm b/trans.scm
index 325ca892..f3c0cae6 100644
--- a/trans.scm
+++ b/trans.scm
@@ -54,6 +54,7 @@
 (define *built-ins* `(
   (define *Cyc-version-banner* ,*version-banner*)
   ;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return.
+  (define call-with-current-continuation call/cc)
   (define (char-whitespace? c) (member c '(#\tab #\space #\return #\newline)))
   (define (char-numeric? c) (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))
   (define (foldl func accum lst)