call/cc実装

会社を休んでやることが電話をかけるだけというのではさすがにアレなので，call/cc実装してみた。
かなり苦戦したが，なんとか下記のようなことはできるようになった。

>> (let ((x 100)) (set! x (call/cc (lambda (k) (k 200)))) (+ x x))
400

怖いので今日はもうこれ以上チェックしません。
しかし，10日前に自分が書いたコードのせいでえらい時間がかかったわあ。ちょっと，というか，かなりへこんだ。