0. #lang racket
1.  
2. (define (y ec)
3.   (call/prompt (thunk (+ 1
4.     (begin
5.       (let ([x (let/cc ec2 (ec ec2))])
6.         (displayln "Nice")
7.         x))))))
8.  
9. (define (x)
10.   (define r (let/ec ec (y ec)))
11.   (displayln "Happens")
12.   (displayln r)
13.   (displayln (procedure? r))
14.   (if (procedure? r)
15.     (r 10)
16.     r))
17.  
18. (displayln (x))

=>

call/prompt: undefined;

cannot reference an identifier before its definition

in module: 'm