This patch is for array-for-each. Only the first argument. Before:
scheme@(guile-user)> (define a (make-array 1 1000000 10))
scheme@(guile-user)> ,time (let ((x 0)) (array-for-each (lambda (a) (set! x (+
a x))) a) x)
$8 = 10000000
;; 0.621887s real time, 0.620181s run time. 0.000000s spent in GC.
After:
scheme@(guile-user)> (define a (make-array 1 1000000 10))
scheme@(guile-user)> ,time (let ((x 0)) (array-for-each (lambda (a) (set! x (+
a x))) a) x)
$2 = 10000000
;; 0.529748s real time, 0.528301s run time. 0.000000s spent in GC.
Regards,
Daniel
0007-Remove-double-indirection-for-1st-arg-of-array-for-e.patch
Description: Binary data
