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

fixed a really bad bug lol

main
Jesse Laprade 2020-06-20 00:46:28 -04:00
parent 73092cf307
commit 2de2c3ca1e
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/rodo.rkt
View File

@ -263,19 +263,19 @@
;; Proper usage ;; Proper usage
[(or '#("-h") [(or '#("-h")
'#("--help") '#("--help")
'#(help-command)) (help)] '#("help")) (help)]
[(vector add-command _) (add (args-ref 1))] [(vector "add" _) (add (args-ref 1))]
[(vector rm-command _) (rm (args-ref 1))] [(vector "rm" _) (rm (args-ref 1))]
[(vector ls-command) (ls)] [(vector "ls" ) (ls)]
;; Improper usage ;; Improper usage
;; This is checked so we can give the user hints on how to ;; This is checked so we can give the user hints on how to
;; use the software if they have part of the command ;; use the software if they have part of the command
;; correct ;; correct
[(vector ls-command _) (displayln-message-list 'error-ls)] [(vector "ls" _) (displayln-message-list 'error-ls)]
[(vector add-command) (displayln-message-list 'error-add)] [(vector "add") (displayln-message-list 'error-add)]
[(vector rm-command) (displayln-message-list 'error-rm)] [(vector "rm") (displayln-message-list 'error-rm)]
[(or (vector) [(or (vector)
(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))