cleanup
m455 2020-06-20 00:23:20 -04:00
parent e9826b0968
commit 6b87eb5f4c
1 changed files with 1 additions and 1 deletions

View File

@ -301,7 +301,7 @@
[(vector ls-command _) (displayln-message-list 'error-ls)] [(vector ls-command _) (displayln-message-list 'error-ls)]
[(vector add-command) (displayln-message-list 'error-add)] [(vector add-command) (displayln-message-list 'error-add)]
[(vector rm-command) (displayln-message-list 'error-rm)] [(vector rm-command) (displayln-message-list 'error-rm)]
[(vector _ ...)) (displayln-message-list 'error-usage)])) [(vector _ ...) (displayln-message-list 'error-usage)]))
(define (main vectorof-args) (define (main vectorof-args)
(process-args vectorof-args)) (process-args vectorof-args))