bus error with recursion

[GoogleCodeExporter]

What steps will reproduce the problem?
(define (loop a) (
       (begin
       (print a)
       (loop (+ a 1))
       )
))
(loop 1)

What is the expected output? What do you see instead?
expect stack overflow

Please use labels and text to provide additional information.

Original issue reported on code.google.com by hige...@gmail.com on 14 May 2008 at 5:26

[GoogleCodeExporter]

The version without `begin'
(define (loop i)
  ((print i)
   (loop (+ i 1))))

(loop 1)
properly causes stack overflow.

The version without `print' also causes stack overflow.
(define (loop i)
  ((begin
     (loop (+ i 1)))))

(loop 1)

Original comment by dico.leq...@gmail.com on 15 May 2008 at 11:05

[GoogleCodeExporter]

Original comment by hige...@gmail.com on 16 May 2008 at 1:42

[GoogleCodeExporter]

Fixed on trunk

Original comment by hige...@gmail.com on 17 May 2008 at 3:23

• Changed state: Fixed