tildetown
/
rodo
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/rodo.rkt
View File

@ -27,12 +27,6 @@
;; ------------------------------------------------ ;; ------------------------------------------------
(define messages (define messages
(hash (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 'error-incorrect-usage
(format (string-append "Error: Incorrect usage." newline (format (string-append "Error: Incorrect usage." newline
"Try running '~a ~a' for more information.") "Try running '~a ~a' for more information.")
@ -283,13 +277,8 @@
[(vector (== init-command)) (init)] [(vector (== init-command)) (init)]
[(vector (== add-command) a) (add a)] [(vector (== add-command) a) (add a)]
[(vector (== rm-command) a) (rm a)] [(vector (== rm-command) a) (rm a)]
[(vector _ _ _ ...) [(vector _ ...) (displayln-messages-ref 'error-incorrect-usage)]
(displayln-messages-ref 'error-too-many-arguments)] [_ (ls)]))
[(vector _ _)
(displayln-messages-ref 'error-incorrect-usage)]
[(vector _)
(displayln-messages-ref 'error-incorrect-usage)]
[_ (ls)]))
(define (main vectorof-args) (define (main vectorof-args)
(process-args vectorof-args)) (process-args vectorof-args))