* lib.scm (exception:numerical-overflow): New define.

* tests/numbers.test (modulo-expt): Use it and
exception:wrong-type-arg, avoiding empty "" regexp which is invalid on
BSD.  Reported by Andreas Vögele.

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 454e07d..358e305 100644 (file)
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -804,27 +804,27 @@
 
    (pass-if-exception
     "Proper exception with 0 modulus"
-    (cons 'numerical-overflow "")
+    exception:numerical-overflow
     (modulo-expt 17 23 0))
 
    (pass-if-exception
     "Proper exception when result not invertible"
-    (cons 'numerical-overflow "")
+    exception:numerical-overflow
     (modulo-expt 10 -1 48))
 
    (pass-if-exception
     "Proper exception with wrong type argument"
-    (cons 'wrong-type-arg "")
+    exception:wrong-type-arg
     (modulo-expt "Sam" 23 10))
 
    (pass-if-exception
     "Proper exception with wrong type argument"
-    (cons 'wrong-type-arg "")
+    exception:wrong-type-arg
     (modulo-expt 17 9.9 10))
    
     (pass-if-exception
     "Proper exception with wrong type argument"
-    (cons 'wrong-type-arg "")
+    exception:wrong-type-arg
     (modulo-expt 17 23 'Ethel)))
 
 ;;;