Source nesting limit

[Andy Wingo]

A bit improbable, but I was curious how much it would take to break the
evaluator:

(define (make-let n)
  (let lp ((n n) (out 'x))
    (if (zero? n)
        (list 'let '((x 1)) out)
        (lp (1- n) (list 'let '((a 2)) out)))))

(eval (make-let (expt 2 20)) (current-module))

It segfaults in an endless stack of scm_copy_tree, presumably due to a
stack overflow. This is with guile 1.6.4.

Regards
-- 
Andy Wingo <address@hidden>
http://ambient.2y.net/wingo/