bug compiled mapcar

[sasagawa888]

(defun sum (xs)
  (let ((a 0))
    (mapc (lambda (x) (setq a (+ a x)) (print a)) xs)
    a))

(defun sum-a (xs)
  (let ((a 0))
    (print (mapcar (lambda (x) (setq a (+ a x)) a) xs))
    a))
Easy-ISLisp Ver2.99
> (load "tests/bug.o")
T
> (sum '(1 2 3 4 5))
1
3
6
10
15
0
> (sum-a '(1 2 3 4 5))
(15 14 12 9 5)
0
> 

[sasagawa888]

Fixed in interpreter. But in compiler it is very complex.

[sasagawa888]

Fixed in compiler.