This code will trigger an inlining loop

[Christian Kellermann]

When compiling the following code with -O3 it will trigger an inlining loop observable with -debug i

(define (main-loop renderer)
  (main-loop renderer))

(when (zero? 0)
  (let ()
    (when #t
      (when #t
        (main-loop renderer)))))

...
inlining: "(t.scm:2) main-loop" f_193 14 
inlining: "(t.scm:2) main-loop" f_193 14 
...

[Christian Kellermann]

Also -O2