suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix silly mistake.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-11-03 08:58:51 -05:00
parent fb9a6a0484
commit f378aa1b7a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
net-test/tests/net/git-checkout.rkt
View File

@ -59,10 +59,11 @@
[else [else
(error 'compare "no such file: ~s" a)])) (error 'compare "no such file: ~s" a)]))
(define (** f . args) (define-syntax-rule (** f args ...)
(printf "dir: ~a\n" (current-directory)) (begin
(printf "~a ~a\n" f args) (printf "dir: ~a\n" (current-directory))
(apply f args)) (printf "~a ~a\n" f (list 'args ...))
(f args ...)))
(when git-exe (when git-exe
(for ([link-mode '(rel up abs)]) (for ([link-mode '(rel up abs)])