Kawa/testsuite/sva35362.scm

(define (foo)
  (call-with-current-continuation
   (lambda (return)
     (let l ()
       (l)))))