diff options
author | Kartik Agaram <vc@akkartik.com> | 2018-06-17 19:53:52 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2018-06-17 19:53:52 -0700 |
commit | 377b00b045289a3fa8e88d4b2f129d797c687e2f (patch) | |
tree | c308460cba545ca702ab81dc32ab54324b17f9f2 /076continuation.cc | |
parent | f5ee2463d00bdf1810c615555e91d993aa1032c3 (diff) | |
download | mu-377b00b045289a3fa8e88d4b2f129d797c687e2f.tar.gz |
4265
Standardize use of type ingredients some more.
Diffstat (limited to '076continuation.cc')
-rw-r--r-- | 076continuation.cc | 22 |
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 |