about summary refs log tree commit diff stats
path: root/continuation1.mu
diff options
context:
space:
mode:
Diffstat (limited to 'continuation1.mu')
-rw-r--r--continuation1.mu16
1 files changed, 4 insertions, 12 deletions
diff --git a/continuation1.mu b/continuation1.mu
index 11811c1d..8e9b1d03 100644
--- a/continuation1.mu
+++ b/continuation1.mu
@@ -4,25 +4,17 @@
 #
 # Expected output:
 #   1
-#   2
-#   3
 
 def main [
   local-scope
   k:continuation <- call-with-continuation-mark create-yielder
-  {
-    x:num, done?:bool <- call k  # should return 1
-    break-if done?
-    $print x 10/newline
-    loop
-  }
+  x:num <- call k  # should return 1
+  $print x 10/newline
 ]
 
-def create-yielder -> n:num, done?:bool [
+def create-yielder -> n:num [
   local-scope
   load-ingredients
-  n <- copy 0
   return-continuation-until-mark
-  done?:bool <- greater-or-equal n, 3
-  n <- add n, 1
+  return 1
 ]