5485 - promote SubX to top-level

1 files changed, 0 insertions, 49 deletions

diff --git a/continuation5.mu b/continuation5.mu
deleted file mode 100644
index 295cb9c9..00000000
--- a/continuation5.mu
+++ /dev/null
@@ -1,49 +0,0 @@
-# Example program showing that a 'paused' continuation can be 'resumed' with
-# inputs.
-#
-# Print out a list of numbers, first adding 0 to the first, 1 to the second, 2
-# to the third, and so on.
-#
-# To run:
-#   $ git clone https://github.com/akkartik/mu
-#   $ cd mu
-#   $ ./mu continuation5.mu
-#
-# Expected output:
-#   1
-#   3
-#   5
-
-def main [
-  local-scope
-  l:&:list:num <- copy null
-  l <- push 3, l
-  l <- push 2, l
-  l <- push 1, l
-  k:continuation, x:num, done?:bool <- call-with-continuation-mark 100/mark, create-yielder, l
-  a:num <- copy 1
-  {
-    break-if done?
-    $print x 10/newline
-    k, x:num, done?:bool <- call k, a  # resume; x = a + next l value
-    a <- add a, 1
-    loop
-  }
-]
-
-def create-yielder l:&:list:num -> n:num, done?:bool [
-  local-scope
-  load-inputs
-  a:num <- copy 0
-  {
-    done? <- equal l, null
-    break-if done?
-    n <- first l
-    l <- rest l
-    n <- add n, a
-    a <- return-continuation-until-mark 100/mark, n, done?  # pause/resume
-    loop
-  }
-  return-continuation-until-mark 100/mark, -1, done?
-  assert false, [called too many times, ran out of continuations to return]
-]