0. #lang racket/base
1. (define whatever (make-parameter 10))
2. (define x null)
3.  
4. (define (bar)
5.   (displayln (string-append "Parameter: " (number->string (whatever))))
6.   (whatever))
7.  
8. (define (func parameter-value)
9.   (parameterize ([whatever parameter-value])
10.     (+ (let/cc y (set! x y) 20)
11.        (+ 20 (bar)))))
12.  
13. (func 20)
14. (x 20)
15.  
16. (func 30)
17. (x 20)

=>

Parameter: 20
60
Parameter: 20
60
Parameter: 30
70
Parameter: 30
70