You can't define iterator with LIPS data types

[jcubic]

This is code that use iteration protocol.

(let ((obj (object))
      (max 10))
  (set-obj! obj Symbol.iterator
        (lambda ()
          (let ((i 0))
            (object :next (lambda ()
                            (set! i (+ i 1))
                            (if (> i max)
                                `&(:done #t)
                                `&(:done #f :value ,(/ 1 i))))))))
  (print (iterator->array obj))
  (print (Array.from (iterator->array obj))))

The problem is that the output array/vector contain JavaScript float numbers instead of LIPS rational numbers.

#(1 0.5 0.3333333333333333 0.25 0.2 0.16666666666666666 0.14285714285714285 0.125 0.1111111111111111 0.1)

It seems that the problem is array::push that unbox the value:

(let ((x (vector))) (x.push 1/2) x)
;; ==> #(0.5)