about summary refs log tree commit diff stats
path: root/callcc.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-05 21:17:24 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-05 21:17:24 -0700
commitb96af395b9af2ff9df94b3e82213171f30827c8d (patch)
tree17c8c12648ccc25625e2534ec8d74fbe8f1542cc /callcc.mu
parent2e3b597fe85b654e82b891c22d50754fa5a26156 (diff)
downloadmu-b96af395b9af2ff9df94b3e82213171f30827c8d.tar.gz
1276 - make C++ version the default
I've tried to update the Readme, but there are at least a couple of issues.
Diffstat (limited to 'callcc.mu')
-rw-r--r--callcc.mu20
1 files changed, 0 insertions, 20 deletions
diff --git a/callcc.mu b/callcc.mu
deleted file mode 100644
index 20dffeff..00000000
--- a/callcc.mu
+++ /dev/null
@@ -1,20 +0,0 @@
-; in mu, call-cc (http://en.wikipedia.org/wiki/Call-with-current-continuation)
-; is constructed out of a combination of two primitives:
-;   'current-continuation', which returns a continuation, and
-;   'continue-from', which takes a continuation to
-
-(function g [
-  (c:continuation <- current-continuation)  ; <-- loop back to here
-  (print-character nil:literal/terminal ((#\a literal)))
-  (reply c:continuation)
-])
-
-(function f [
-  (c:continuation <- g)
-  (reply c:continuation)
-])
-
-(function main [
-  (c:continuation <- f)
-  (continue-from c:continuation)            ; <-- ..when you hit this
-])