0. #lang racket
1.  
2.  
3.     ; your code goes here
4.  
5. (define (test-kont)
6.  
7.     ;;Global variable for the continuation
8.     (define k-global #f)
9.  
10.     ;;We are using let* instead of let so that we can guarantee
11.     ;;the evaluation order
12.     (let* (
13.     (my-number 3)
14.     (k
15.     ;;set bookmark here
16.     (call-with-current-continuation
17.     ;;The continuation will be stored in "kont"
18.     (lambda (kont)
19.     ;;return the continuation
20.     kont))))
21.  
22.     ;;We are using "my-number" to show that the old stack
23.     ;;frame is being saved. When we revisit the continuation
24.     ;;the second time, the value will remain changed.
25.     (display "The value of my-number is: ")
26.     (display my-number)
27.     (newline)
28.     (set! my-number (+ my-number 1))
29.  
30.     ;;Save the continuation in a global variable.
31.     (set! k-global k)
32.     (display "test #2")
33.     (newline)
34.     )
35.  
36.     (display "test#")
37.     (newline)
38.  
39.     ;;Is "kontinuation" a continuation?
40.     (if (procedure? k-global)
41.     (begin
42.     (display "This is the first run, k-global is a continuation")
43.     (newline)
44.     ;;Send "4" to the continuation which goes to the bookmark
45.     ;;which will assign it to "k"
46.     (k-global 4))
47.     (begin
48.     ;;This occurs on the second run
49.     (display "This is the second run, k-global is not a continuation, it is ")
50.     (display k-global)
51.     (newline)))
52. )
53.  
54. (test-kont)

=>

The value of my-number is: 3 test #2 test# This is the first run, k-global is a continuation The value of my-number is: 4 test #2 test# This is the second run, k-global is not a continuation, it is 4