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

changed match behaviour in arg parsing

cleanup
m455 2020-09-24 15:16:06 -04:00
parent f0dfccd416
commit 4dd535d5fd
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/nicethings.rkt
View File

@ -309,12 +309,7 @@
[(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)]
[(vector _ _)
(displayln-messages-ref 'error-incorrect-usage)]
[(vector _)
(displayln-messages-ref 'error-incorrect-usage)]
[_ (random-message)])) [_ (random-message)]))
(define (main vectorof-args) (define (main vectorof-args)