エラーにならないよ (Gauche 0.8.6)。どんなエラーが出てるの?
ちなみにreenterを呼び出すと

(fluid-let ((x 1))
(call/cc (lambda (k) (set! reenter k))) <-- この式から戻ってくる
(set! x (+ x 1))
x)

引数に渡している '* は call/cc の戻り値になるけど、ここでは
捨ててるからあんまり意味はない。