diff options
Diffstat (limited to 'tools/tvect.scm')
-rw-r--r-- | tools/tvect.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/tvect.scm b/tools/tvect.scm index 1c909eb..a9ae4f5 100644 --- a/tools/tvect.scm +++ b/tools/tvect.scm @@ -1,6 +1,6 @@ ;;; vector timing tests -(set! (*s7* 'heap-size) 1024000) +(set! (*s7* 'heap-size) (* 2 1024000)) (define size 300000) (define size/10 (/ size 10)) @@ -366,7 +366,7 @@ (let ((v (make-vector size))) (do ((i 0 (+ i 1))) ((= i size) (vector-ref v 0)) - (list-values (vector-set! v i 2))))) + (values (vector-set! v i 2))))) (unless (= (h7) 2) (format *stderr* "h7: ~S~%" (h7))) @@ -452,7 +452,7 @@ ((= k 10) (vector-ref v 0 0)) (do ((i 0 (+ i 1))) ((= i size/10)) - (list-values (vector-set! v k i 2)))))) + (values (vector-set! v k i 2)))))) (unless (= (h17) 2) (format *stderr* "h17: ~S~%" (h17))) @@ -515,7 +515,7 @@ (let ((v (make-vector size))) (do ((i 0 (+ i 1))) ((= i size) (v 0)) - (list-values (set! (v i) 2))))) + (values (set! (v i) 2))))) (unless (= (j6) 2) (format *stderr* "j6: ~S~%" (j6))) @@ -587,7 +587,7 @@ ((= k 10) (v 0 0)) (do ((i 0 (+ i 1))) ((= i size/10)) - (list-values (set! (v k i) 2)))))) + (values (set! (v k i) 2)))))) (unless (= (j16) 2) (format *stderr* "j16: ~S~%" (j16))) |