From f378aa1b7a0134556e737a27de7b146f386e0a09 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 3 Nov 2015 08:58:51 -0500 Subject: [PATCH] Fix silly mistake. --- net-test/tests/net/git-checkout.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/net-test/tests/net/git-checkout.rkt b/net-test/tests/net/git-checkout.rkt index d788549c43..3970df210f 100644 --- a/net-test/tests/net/git-checkout.rkt +++ b/net-test/tests/net/git-checkout.rkt @@ -59,10 +59,11 @@ [else (error 'compare "no such file: ~s" a)])) -(define (** f . args) - (printf "dir: ~a\n" (current-directory)) - (printf "~a ~a\n" f args) - (apply f args)) +(define-syntax-rule (** f args ...) + (begin + (printf "dir: ~a\n" (current-directory)) + (printf "~a ~a\n" f (list 'args ...)) + (f args ...))) (when git-exe (for ([link-mode '(rel up abs)])