about summary refs log blame commit diff stats
path: root/callcc.mu
blob: a08f9c8a71c0a775b9e418d598b9411b1679d7ed (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


                                                                  











                                                                   
                                                                           
 
# example program: saving and reusing call-stacks or continuations

recipe main [
  c:continuation <- f
  continue-from c:continuation            # <-- ..when you hit this
]

recipe f [
  c:continuation <- g
  reply c:continuation
]

recipe g [
  c:continuation <- current-continuation  # <-- loop back to here
  $print 1:literal
  reply c:continuation  # threaded through unmodified after first iteration
]