連投すまぬ。
引数の名前がきちんと対応していなかったのでfoo*を書きなおした。

(define (foo* x)
(call/cc*
(lambda (x) x)
(lambda (f cc)
(let ((g (lambda (x) (f (+ 3 x)))))
(if (> x 3) (cc g (+ x 1)) (g x))))))