[Chicken-janitors] #1094: define-inline does not respect inline-limit

[Chicken Trac]

#1094: define-inline does not respect inline-limit
------------------------+---------------------------------------------------
 Reporter:  johnwcowan  |       Owner:         
     Type:  defect      |      Status:  new    
 Priority:  major       |   Milestone:  someday
Component:  compiler    |     Version:  4.8.x  
 Keywords:              |  
------------------------+---------------------------------------------------
 If you define a recursive procedure with `define-inline`, csc 4.8.0.4
 loops.

 {{{
 (define-inline (foo x) (if (= x 0) 0 (+ (foo (- x 1)) 1)))
 (foo 32)
 }}}

 Compile with `csc -t`, wait forever.  This is not the case with

 {{{
 (declare (inline foo))
 (define (foo x) (if (= x 0) 0 (+ (foo (- x 1)) 1)))
 (foo 32)
 }}}

 which suppresses the inlining.

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/1094>
CHICKEN Scheme <http://www.call-with-current-continuation.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.