0. #lang racket/base
1. ;; coroutines implementation from https://hillside.net/plop/plop2001/accepted_submissions/PLoP2001/dferguson0/PLoP2001_dferguson0_1.pdf
2. ;
3. (define (coroutine-maker proc)
4.   (define saved-continuation '())
5.   (define (update-continuation! v)
6.     (displayln "updating")
7.     (set! saved-continuation v))
8.   (define resumer (resume-maker update-continuation!))
9.   (define first-time #t)
10.   (define (f value)
11.     (cond
12.       [first-time
13.        (set! first-time #f)
14.        (proc resumer value)]
15.       [else (saved-continuation value)]))
16.   f)
17.  
18. (define ((resume-maker update-proc!) next-coroutine value)
19.   (define (receiver continuation)
20.     (update-proc! continuation)
21.     (next-coroutine value))
22.   (call-with-current-continuation receiver))
23.  
25. ;; test
26.  
27. (define (ping-procedure resume value)
28.   (displayln "Pinging 1")
29.   (resume pong value)
30.   (displayln "Pinging 2")
31.   (resume pong value)
32.   (displayln "Pinging 3")
33.   (resume pong value))
34.  
35. (define ping (coroutine-maker ping-procedure))
36.  
38. (define (pong-procedure resume value)
39.   (displayln "Pinging 1")
40.   (resume ping value)
41.   (displayln "Pinging 2")
42.   (resume ping value)
43.   (displayln "Pinging 3")
44.   (resume ping value))
45.  
46. (define pong (coroutine-maker pong-procedure))
47.  
48. (ping 1)

=>

Pinging 1 updating Pinging 1 updating Pinging 2 updating Pinging 2 updating Pinging 3 updating Pinging 3 updating

1