(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.