Catch wrong number of arguments case

If a command gets the wrong number of arguments, tell the user.
2013-06-05 01:07:56 +02:00 · 2013-06-05 01:07:56 +02:00 · a936e985a4
commit a936e985a4
parent 5f3dfee5ac
1 changed files with 6 additions and 3 deletions
--- 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 '())