letでもいいと思うけど
(let ((cc '())(v 5))
　(call/cc (lambda(x) (set! cc x) v))
　(display v)(newline)
　(set! v (+ v 1))
　(cc v)
)