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		"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"	defect	new	major	4.8.0	core tools	4.7.x		csi segfault master