diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-23 17:57:55 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-23 17:57:55 +0000 |
commit | a47d845fd4a5579b922f0e62099cbbf415170754 (patch) | |
tree | 477e5af0fc4d06394b20352e57ac53847ec2b5ef /test-suite/lib.scm | |
parent | 5d8d08494bcb56338c9f05e2dbbef6dda67aaab5 (diff) | |
download | guile-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.scm | 4 |
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")) |