From 5854807d1269ded493a512725c5c66cad93d2305 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Tue, 22 May 2012 23:39:47 +0200
Subject: tests: Avoid middle ellipsis in `syntax-case' pattern, for Guile 1.8.

* tests/location.test (call-with-code): Expect only one string.
---
 tests/location.test | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'tests')

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)
-- 
cgit v1.2.3