~ chicken-core (chicken-5) cb3c07d02da8d05684a000c64248f8b6f17b351e

commit cb3c07d02da8d05684a000c64248f8b6f17b351e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Sep 6 09:42:09 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Sep 6 09:42:09 2010 -0400

    fx-ops in arith-test only for fixnums

diff --git a/tests/arithmetic-test.scm b/tests/arithmetic-test.scm
index 07cb108f..a9d74292 100644
--- a/tests/arithmetic-test.scm
+++ b/tests/arithmetic-test.scm
@@ -60,7 +60,13 @@
 	(do ((i 10 (sub1 i)))
 	    ((zero? i))
 	  (let* ((args (list (+ x (random random-range)) (+ y (random random-range))))
-		 (res (apply op args)))
+		 (res
+		  (and (cond-expand
+			 (fx-ops
+			  (and (fixnum? (car args))
+			       (fixnum? (cadr args))))
+			 (else #t))
+		       (apply op args))))
 	    (push opname args res))))
       points))
    points))