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


                                                                  










                                                                   
          
                                                                           
 
# 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
  reply c:continuation  # threaded through unmodified after first iteration
]