summaryrefslogtreecommitdiff
path: root/tests/testlib.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2019-05-05 11:33:26 +0200
committerPeter Bex <peter@more-magic.net>2019-05-05 11:33:26 +0200
commit0abb9e38f823b4c5c311f90868e010432a8976dd (patch)
tree5f7f177731c4c224443da6f247ebb76866116bb9 /tests/testlib.scm
parent6050de2ddb99e13449bd4f3eb851bc151e6678d8 (diff)
downloadhttp-client-0abb9e38f823b4c5c311f90868e010432a8976dd.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/testlib.scm')
-rw-r--r--tests/testlib.scm4
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)