stack overflow problem

[William Xu]

Hi, 

I define the following function, 

(define (enumerate-interval low high)
  "Return a sequence list by walking from LOW to HIGH.
e.g.,
        (enumerate-interval 1 10)
                                 => (1 2 3 4 5 6 7 8 9 10)"
  (if (> low high)
      '()
      (cons low (enumerate-interval (1+ low) high))))

When i passed it a slightly big interval, guile complains "stack
overflow", 

guile > (enumerate-interval 1 400)
...
guile > (enumerate-interval 1 500)
ERROR: Stack overflow
ABORT: (stack-overflow)
guile> 

Might be a bug? (i also tested this on mzscheme, and works fine.)

Guile version: 1.6.7, debian unstable.

-- 
William