~ chicken-core (chicken-5) /tests/inline-unroll.scm

1;; trivial test for catching runaway inlining (#1648), by
2;; megane:
3
4(module
5 m1 (foo)
6 (import scheme)
7 (define (foo x) (bar x))
8 (define (bar x) (if (null? x) x (bar (cdr x)))))