継続マラソン - 継続の実装方法を考える10

(define cont 1)
(begin 1
       (call/cc (lambda (c) (set! cont c) (display "hige")))
       (display "higepon"))
(cont 1)

昨日に書いていた方法を、Begin限定で試してみて、動いた。
設計が汚くなっている気がするので明日考察しよう。