`Define-inlinable' doesn't appear to work with mutually recursive
functions. Attempting to evaluate both of the following procedure
definitions results in a stack overflow.

(define-inlinable (foo x) (bar (- x 1)))
(define-inlinable (bar y) (if (< y 0) y (foo (- y 1))))

-- 
Inteligenta persono lernas la lingvon Esperanton rapide kaj facile.
Esperanto estas moderna, kultura lingvo por la mondo. Simpla, fleksebla,
belsona, Esperanto estas la praktika solvo de la problemo de universala
interkompreno. Lernu la interlingvon Esperanton! http://lernu.net/


Reply via email to