about summary refs log tree commit diff stats
path: root/076continuation.cc
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2018-06-17 19:53:52 -0700
committerKartik Agaram <vc@akkartik.com>2018-06-17 19:53:52 -0700
commit377b00b045289a3fa8e88d4b2f129d797c687e2f (patch)
treec308460cba545ca702ab81dc32ab54324b17f9f2 /076continuation.cc
parentf5ee2463d00bdf1810c615555e91d993aa1032c3 (diff)
downloadmu-377b00b045289a3fa8e88d4b2f129d797c687e2f.tar.gz
4265
Standardize use of type ingredients some more.
Diffstat (limited to '076continuation.cc')
-rw-r--r--076continuation.cc22
1 files changed, 11 insertions, 11 deletions
diff --git a/076continuation.cc b/076continuation.cc
index b5b9288b..7a328a11 100644
--- a/076continuation.cc
+++ b/076continuation.cc
@@ -70,24 +70,24 @@ if (r.type->atom && r.type->name == "continuation") {
 :(scenario delimited_continuation)
 recipe main [
   1:continuation <- call-with-continuation-mark 233/mark, f, 77  # 77 is an argument to f
-  2:number <- copy 5
+  2:num <- copy 5
   {
-    2:number <- call 1:continuation, 2:number  # jump to 'return-continuation-until-mark' below
-    3:boolean <- greater-or-equal 2:number, 8
-    break-if 3:boolean
+    2:num <- call 1:continuation, 2:num  # jump to 'return-continuation-until-mark' below
+    3:bool <- greater-or-equal 2:num, 8
+    break-if 3:bool
     loop
   }
 ]
 recipe f [
-  11:number <- next-ingredient
-  12:number <- g 11:number
-  return 12:number
+  11:num <- next-ingredient
+  12:num <- g 11:num
+  return 12:num
 ]
 recipe g [
-  21:number <- next-ingredient
-  22:number <- return-continuation-until-mark 233/mark
-  23:number <- add 22:number, 1
-  return 23:number
+  21:num <- next-ingredient
+  22:num <- return-continuation-until-mark 233/mark
+  23:num <- add 22:num, 1
+  return 23:num
 ]
 # first call of 'g' executes the part before return-continuation-until-mark
 +mem: storing 77 in location 21