exit code checking added

2026-08-12 16:50:57 +02:00
parent b832ab8184
commit e4e37d2214
4 changed files with 36 additions and 31 deletions
@@ -49,10 +49,12 @@
  args)


-(define (std-process-git-result cmd result output out)
+(define (std-process-git-result cmd exit-code result output out)
  (git-displ out)
  (if result
-      result
+      (if (= exit-code 0)
+          #t
+          #f)
      (git-error cmd "Error" out)))

 (define-syntax def-git-cmd-proxy
@@ -64,9 +66,9 @@
    ((_ f cmd pre-code process-result)
     (define (f args)
       (let ((nargs (pre-code args)))
-         (let ((output (run-git (cons cmd nargs))))
+         (let-values (((exit-code output) (run-git (cons cmd nargs))))
           (let-values (((result out) (git-out cmd output)))
-             (process-result cmd result output out))))))
+             (process-result cmd exit-code result output out))))))
    )
  )