aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-22 23:39:47 +0200
committerLudovic Courtès2012-05-22 23:39:47 +0200
commit5854807d1269ded493a512725c5c66cad93d2305 (patch)
treecff5e7cd5269a9e3ab5912aa66407ba6e49dfe91
parent1a357d7ed98859c0b34136006ceb2dfdaa2d9bec (diff)
downloadskribilo-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.test15
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)