aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)