Macro problem

[soegaard]

This works

     (define (array-intersection ars)
       ; copy first array
       (var [result ((dot (ref ars 0) slice))])
       ; intersect the remaining arrays with the result array
       (for ([a in-array ars]
             [j in-naturals 0]) ; (sigh) don't use i here
         (when (> j 0)
           (:= result (string-array-intersection2 result a))))
       result)

But if j is replaced with i the macro expansion is wrong.