diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-07-27 16:01:55 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-07-27 17:47:59 -0700 |
commit | 6e1eeeebfb453fa7c871869c19375ce60fbd7413 (patch) | |
tree | 539c4a3fdf1756ae79770d5c4aaf6366f1d1525e /archive/2.vm/continuation3.mu | |
parent | 8846a7f85cc04b77b2fe8a67b6d317723437b00c (diff) | |
download | mu-6e1eeeebfb453fa7c871869c19375ce60fbd7413.tar.gz |
5485 - promote SubX to top-level
Diffstat (limited to 'archive/2.vm/continuation3.mu')
-rw-r--r-- | archive/2.vm/continuation3.mu | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/archive/2.vm/continuation3.mu b/archive/2.vm/continuation3.mu new file mode 100644 index 00000000..cde60958 --- /dev/null +++ b/archive/2.vm/continuation3.mu @@ -0,0 +1,34 @@ +# Example program showing that a function call can be 'paused' multiple times, +# creating different continuation values. +# +# To run: +# $ git clone https://github.com/akkartik/mu +# $ cd mu +# $ ./mu continuation3.mu +# +# Expected output: +# caller 0 +# callee 0 +# caller 1 +# callee 1 +# caller 2 +# callee 2 + +def main [ + local-scope + $print [caller 0] 10/newline + k:continuation <- call-with-continuation-mark 100/mark, f + $print [caller 1] 10/newline + k <- call k + $print [caller 2] 10/newline + call k +] + +def f [ + local-scope + $print [callee 0] 10/newline + return-continuation-until-mark 100/mark + $print [callee 1] 10/newline + return-continuation-until-mark 100/mark + $print [callee 2] 10/newline +] |