error handling

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 ...)))
     )
   )

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