arity problems solved

2026-08-12 22:32:44 +02:00
parent aebd420c3c
commit 78731ee677
2 changed files with 8 additions and 6 deletions
@@ -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"))))
-  (λ (cmd exit-code result output out)
+  (λ (args info) (check-git-args 'commit args '((-m 1 "A commit message is mandatory"))))
+  (λ (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)))