diff options
| -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) |