CPS変換(2)

my-funcもCPSで
        (define (my-func x cont)
          (let ((y (+ x 1)))
            (GET-NEW-VALUE
               (lambda (z)
                  (cont (+ y z))))))

値を返す ≡ 値を継続手続きに渡す