diff options
| author | Ludovic Courtès | 2012-05-22 23:39:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-22 23:39:47 +0200 |
| commit | 5854807d1269ded493a512725c5c66cad93d2305 (patch) | |
| tree | cff5e7cd5269a9e3ab5912aa66407ba6e49dfe91 | |
| parent | 1a357d7ed98859c0b34136006ceb2dfdaa2d9bec (diff) | |
| download | skribilo-5854807d1269ded493a512725c5c66cad93d2305.tar.gz skribilo-5854807d1269ded493a512725c5c66cad93d2305.tar.lz skribilo-5854807d1269ded493a512725c5c66cad93d2305.zip | |
tests: Avoid middle ellipsis in `syntax-case' pattern, for Guile 1.8.
* tests/location.test (call-with-code): Expect only one string.
| -rw-r--r-- | tests/location.test | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/tests/location.test b/tests/location.test index c973f63..e4d1402 100644 --- a/tests/location.test +++ b/tests/location.test @@ -32,14 +32,13 @@ (define-syntax call-with-code (syntax-rules () - ((_ strings ... thunk) - (let ((s (string-join '(strings ...) "\n"))) - (call-with-input-string s - (lambda (p) - (set-port-filename! p "the-file.skb") - (set-port-line! p 0) - (set-port-column! p 0) - (thunk p))))))) + ((_ string thunk) + (call-with-input-string string + (lambda (p) + (set-port-filename! p "the-file.skb") + (set-port-line! p 0) + (set-port-column! p 0) + (thunk p)))))) (define (location->list loc) (and (location? loc) |