bug#33652: The optimization that fails

[Stefan Israelsson Tampe]

(define f
  (compile
    '(lambda ()
       (let/ec b
         (let lp ()
            (b)
            (lp))))
      #:env (current-module) #:opts '(#:contify? #f)))

compiles so the issue is in the contify section of the optimizer.