Catch wrong number of arguments case

If a command gets the wrong number of arguments, tell the user.

1 files changed, 6 insertions, 3 deletions

diff --git a/gitto/main.scm b/gitto/main.scm
index 8c21830..705faf7 100644
--- a/gitto/main.scm
+++ b/gitto/main.scm
@@ -34,9 +34,12 @@
         exp exp* ...)
      (begin
        (set! command-list
-             (cons (cons (symbol->string (quote name))
-                         (lambda args
-                           exp exp* ...))
+             (cons
+              (cons (symbol->string (quote name))
+                    (case-lambda
+                      (args
+                       exp exp* ...)
+                      (lst (format #t "Wrong number of arguments.~%"))))
                    command-list))))))
 
 (define command-list '())