arity problems solved

private/git-commands.rkt

@@ -2,6 +2,7 @@
 
 (require "git-provider.rkt"
          racket/string
+         racket/list
          )
 
 (provide def-git-cmd-proxy
@@ -60,7 +61,7 @@
       (git-error cmd (format "Exitcode <> 0: ~a" exit-code) out)
       )
   )
-            
+
 
 (define-syntax def-git-cmd-proxy
   (syntax-rules ()
@@ -69,8 +70,9 @@
     ((_ f cmd pre-code)
      (def-proxy-cmd f cmd pre-code standard-result))
     ((_ f cmd pre-code process-result)
-     (define (f args)
-       (let* ((info (make-hash))
+     (define (f args*)
+       (let* ((args (flatten args*))
+              (info (make-hash))
               (nargs (pre-code args info)))
          (let-values (((exit-code output) (run-git (cons cmd nargs))))
            (let-values (((result out) (git-out cmd output)))