summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2020-03-28 20:49:55 +0100
committerPeter Bex <peter@more-magic.net>2020-03-28 20:49:55 +0100
commit6368fb067e244349265e9fdc4a7735e069a6a40a (patch)
tree0ba5ad3a2dbd11ffc788aca8989e305cf455f85f /tests/run.scm
parent165d53747bae18f994df60745f3268040e25ab54 (diff)
downloadchicken-postgresql-6368fb067e244349265e9fdc4a7735e069a6a40a.tar.gz
Don't use keywords as identifiers in macro in tests
This breaks in newer CHICKEN versions.
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/run.scm b/tests/run.scm
index 80cf799..c370cbe 100644
--- a/tests/run.scm
+++ b/tests/run.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)