diff options
| author | Peter Bex <peter@more-magic.net> | 2019-05-05 11:33:26 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2019-05-05 11:33:26 +0200 |
| commit | 0abb9e38f823b4c5c311f90868e010432a8976dd (patch) | |
| tree | 5f7f177731c4c224443da6f247ebb76866116bb9 /tests | |
| parent | 6050de2ddb99e13449bd4f3eb851bc151e6678d8 (diff) | |
| download | http-client-1.1.1.tar.gz | |
Fix tests with CHICKEN 5.0.21.1.1
Keywords can't be (ab)used as identifier anymore, so we can't bind
expression: with let-syntax. Instead, simply use the plain symbol.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testlib.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testlib.scm b/tests/testlib.scm index 33ac2e2..92e69da 100644 --- a/tests/testlib.scm +++ b/tests/testlib.scm @@ -10,13 +10,13 @@ (define-syntax test-error* (syntax-rules () ((_ ?msg (?error-type ...) ?expr) - (let-syntax ((expression: + (let-syntax ((expression (syntax-rules () ((_ ?expr) (condition-case (begin ?expr "<no error thrown>") ((?error-type ...) '(?error-type ...)) (exn () (##sys#slot exn 1))))))) - (test ?msg '(?error-type ...) (expression: ?expr)))) + (test ?msg '(?error-type ...) (expression ?expr)))) ((_ ?msg ?error-type ?expr) (test-error* ?msg (?error-type) ?expr)) ((_ ?error-type ?expr) |