From 6e1eeeebfb453fa7c871869c19375ce60fbd7413 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 27 Jul 2019 16:01:55 -0700 Subject: 5485 - promote SubX to top-level --- arc/callcc.mu | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 arc/callcc.mu (limited to 'arc/callcc.mu') diff --git a/arc/callcc.mu b/arc/callcc.mu deleted file mode 100644 index 20dffeff..00000000 --- a/arc/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 -]) -- cgit 1.4.1-2-gfad0