arity problems solved

main.rkt

@@ -39,7 +39,7 @@
         )
     (if m
         (g args)
-        (g (cons '--porcelain=v1 args)))))
+        (g (cons '--porcelain args)))))
 
 (define-syntax def-cmd
   (syntax-rules ()
@@ -89,8 +89,8 @@
 (def-cmd git-add cmd-git-add 'add)
 
 (def-cmd git-commit cmd-git-commit 'commit
-  (λ (args) (check-git-args 'commit args '((-m 1 "A commit message is mandatory"))))
+  (λ (args info) (check-git-args 'commit args '((-m 1 "A commit message is mandatory"))))
-  (λ (cmd exit-code result output out)
+  (λ (cmd exit-code result output out info)
     (cond
       ((= exit-code 1) (git-displ out) #t)
       (std-process-git-result cmd exit-code result output out)))

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)
+     (define (f args*)
-       (let* ((info (make-hash))
+       (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)))