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