summaryrefslogtreecommitdiff
path: root/test-suite/lib.scm
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-09-23 17:57:55 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-09-23 17:57:55 +0000
commita47d845fd4a5579b922f0e62099cbbf415170754 (patch)
tree477e5af0fc4d06394b20352e57ac53847ec2b5ef /test-suite/lib.scm
parent5d8d08494bcb56338c9f05e2dbbef6dda67aaab5 (diff)
downloadguile-a47d845fd4a5579b922f0e62099cbbf415170754.tar.gz
(exception:out-of-range, exception:wrong-type-arg):
Accept new wording.
Diffstat (limited to 'test-suite/lib.scm')
-rw-r--r--test-suite/lib.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index 46083288c..8aad7fcc3 100644
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -241,7 +241,7 @@
(define exception:missing-expression
(cons 'misc-error "^missing or extra expression"))
(define exception:out-of-range
- (cons 'out-of-range "^Argument .*out of range"))
+ (cons 'out-of-range "^.*out of range"))
(define exception:unbound-var
(cons 'unbound-variable "^Unbound variable"))
(define exception:used-before-defined
@@ -249,7 +249,7 @@
(define exception:wrong-num-args
(cons 'wrong-number-of-args "^Wrong number of arguments"))
(define exception:wrong-type-arg
- (cons 'wrong-type-arg "^Wrong type argument"))
+ (cons 'wrong-type-arg "^Wrong type"))
(define exception:numerical-overflow
(cons 'numerical-overflow "^Numerical overflow"))