ryuslash/gitto
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Catch wrong number of arguments case

Browse source 
If a command gets the wrong number of arguments, tell the user.
This commit is contained in:
Tom Willemse 2013-06-05 01:07:56 +02:00
parent 5f3dfee5ac
commit a936e985a4
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gitto/main.scm
View file

@ -34,9 +34,12 @@
exp exp* ...) exp exp* ...)
(begin (begin
(set! command-list (set! command-list
(cons (cons (symbol->string (quote name)) (cons
(lambda args (cons (symbol->string (quote name))
exp exp* ...)) (case-lambda
(args
exp exp* ...)
(lst (format #t "Wrong number of arguments.~%"))))
command-list)))))) command-list))))))
(define command-list '()) (define command-list '())