Removed too-many-args error message in place of just 'incorrect usage' error

main
Jesse Laprade 2020-09-24 15:09:41 -04:00
parent 42591a97fc
commit dbd80a0b2c
1 changed files with 2 additions and 13 deletions

View File

@ -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)