Export ##use-fast-bignum-algorithms fromn _num.scm.

And use it in tests/unit-tests to avoid tests with unnecessarily large arguments.
gambit · Aug 22, 2017 · 7a23bb9 · 7a23bb9
1 parent 7d2ee5d
commit 7a23bb9
Show file tree

Hide file tree

Showing 2 changed files with 75 additions and 37 deletions.
diff --git a/lib/_num.scm b/lib/_num.scm
@@ -10,14 +10,17 @@
 (macro-case-target
  ((C)
   (c-declare "#include \"mem.h\"")
-  (##define-macro (use-fast-bignum-algorithms) #t))
+  (##define-macro (use-fast-bignum-algorithms) #f))
 
  ((js)
-  (##define-macro (use-fast-bignum-algorithms) #t))
+  (##define-macro (use-fast-bignum-algorithms) #f))
 
  (else
   (##define-macro (use-fast-bignum-algorithms) #f)))
 
+(define-prim (##use-fast-bignum-algorithms?)
+  (use-fast-bignum-algorithms))
+
 ;;;============================================================================
 
 ;;; Implementation of exceptions.