diff options
| author | Peter Bex <peter@more-magic.net> | 2020-03-28 20:49:55 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2020-03-28 20:49:55 +0100 |
| commit | 6368fb067e244349265e9fdc4a7735e069a6a40a (patch) | |
| tree | 0ba5ad3a2dbd11ffc788aca8989e305cf455f85f /tests/run.scm | |
| parent | 165d53747bae18f994df60745f3268040e25ab54 (diff) | |
| download | chicken-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.scm | 4 |
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) |