continuation3.mu « 1.vm « archive - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

path: root/archive/1.vm/continuation3.mu

blob: cde6095898491b6e5d5220c88b1c99f0493d8815 (plain) (blame)

# Example program showing that a function call can be '

ifferent 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 ]