From e861f1f70655784c2f4c2f48992f435c8154a245 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Wed, 12 Aug 2026 15:54:32 +0200
Subject: [PATCH] error handling

---
 main.rkt                 | 2 +-
 private/git-commands.rkt | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/main.rkt b/main.rkt
index 3248cd8..3c69d73 100644
--- a/main.rkt
+++ b/main.rkt
@@ -26,7 +26,7 @@
     ((_ command b1 ...)
      ((hash-ref git-commands 'command
                 (λ ()
-                  (error "Not supported git command '~a" 'command)))
+                  (error "Not a supported or recognized git command: " 'command)))
       (list b1 ...)))
     )
   )
diff --git a/private/git-commands.rkt b/private/git-commands.rkt
index e79dd0e..65726d1 100644
--- a/private/git-commands.rkt
+++ b/private/git-commands.rkt
@@ -50,6 +50,7 @@
 
 
 (define (std-process-git-result cmd result output out)
+  (displayln output)
   (git-displ out)
   (if result
       result