fx math is unexpectedly slower. (define times 100000000)
'std-math
(time
(let ((v (make-vector 2)))
(vector-set! v 1 2)
(do ((n times (- n 1)))
((zero? n) (vector-ref v 1))
(vector-ref v 1))))
'fx-math
(time
(let ((v (make-vector 2)))
(vector-set! v 1 2)
(do ((n times (fx- n 1)))
((fxzero? n) (vector-ref v 1))
(vector-ref v 1))))
_______________________________________________ Larceny-users mailing list Larceny-users@lists.ccs.neu.edu https://lists.ccs.neu.edu/bin/listinfo/larceny-users
