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

View File

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