#lang scheme/base (define (sqr n) (* n n)) (define current-value (make-parameter 4)) (define (with-value value next) (parameterize ((current-value value)) (next))) (with-value (+ 4 5) (λ () (sqr (current-value))))