Removed too-many-args error message in place of just 'incorrect usage' error
parent
42591a97fc
commit
dbd80a0b2c
13
src/rodo.rkt
13
src/rodo.rkt
|
@ -27,12 +27,6 @@
|
|||
;; ------------------------------------------------
|
||||
(define messages
|
||||
(hash
|
||||
'error-too-many-arguments
|
||||
(format (string-append "Error: Too many arguments." newline
|
||||
"Try running '~a ~a' for more information.")
|
||||
program-name
|
||||
help-command-1)
|
||||
|
||||
'error-incorrect-usage
|
||||
(format (string-append "Error: Incorrect usage." newline
|
||||
"Try running '~a ~a' for more information.")
|
||||
|
@ -283,12 +277,7 @@
|
|||
[(vector (== init-command)) (init)]
|
||||
[(vector (== add-command) a) (add a)]
|
||||
[(vector (== rm-command) a) (rm a)]
|
||||
[(vector _ _ _ ...)
|
||||
(displayln-messages-ref 'error-too-many-arguments)]
|
||||
[(vector _ _)
|
||||
(displayln-messages-ref 'error-incorrect-usage)]
|
||||
[(vector _)
|
||||
(displayln-messages-ref 'error-incorrect-usage)]
|
||||
[(vector _ ...) (displayln-messages-ref 'error-incorrect-usage)]
|
||||
[_ (ls)]))
|
||||
|
||||
(define (main vectorof-args)
|
||||
|
|
Loading…
Reference in New Issue