~ chicken-core (master) /tests/clustering-tests.scm

1;;; clustering-tests.scm
2
3;; triggers `determine-loop-and-dispatch`
4(let ()
5  (define (a x) (if (= x 0) x (b (sub1 x))))
6  (define (b x) (if (= x 0) x (a (sub1 x))))
7  (a 10))