diff options
Diffstat (limited to 'gitto/main.scm')
| -rw-r--r-- | gitto/main.scm | 9 |
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 '()) |