stalin bug

stalin-0.11/include/QobiScheme.sc
stalin-0.11/benchmarks/em-functional.sc

(define (reduce-vector f v i)
 (let ((n (vector-length v)))
  (cond ((zero? n) i)
	((= n 1) (vector-ref v 0))
	(else (let loop ((i 1) (c (vector-ref v 0)))
	       (if (= i n) c (loop (+ i 1) (f c (vector-ref v i)))))))))

↓

(define (reduce-vector f v initial)
 (let ((n (vector-length v)))
 (cond ((zero? n) initial)
       ((= n 1) (vector-ref v 0))
       (else (let loop ((i 1) (c (f initial (vector-ref v 0))))
              (if (= i n) c (loop (+ i 1) (f c (vector-ref v i)))))))))