id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
876	csi segfaults immediately when running this code	Christian Kellermann	felix winkelmann	"As found by uman on IRC the following works when compiled and crashes when interpreted:

{{{
(define (product-rec f a next b)
  (if (> a b) 1
      (* (f a) (product-rec f (next a) next b))))

(define (estimate-pi n)
  (define (num-term k)
    (+ k (if (even? k) 2 1)))
  (define (denom-term k)
    (+ k (if (even? k) 1 2)))
  (* 4 (product-rec (lambda (k) (/ (num-term k) (denom-term k))) 1 add1 n)))

(print (estimate-pi 100000))

}}}

This crashes current master, on x64 linux, also 4.7.0 on 32bit x86 OpenBSD"	enhancement	closed	minor		core tools	4.7.x	wontfix	csi segfault master