From 2de2c3ca1e74fdc47aef5926a71b578e0d9b0180 Mon Sep 17 00:00:00 2001 From: Jesse Laprade Date: Sat, 20 Jun 2020 00:46:28 -0400 Subject: [PATCH] fixed a really bad bug lol --- src/rodo.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/rodo.rkt b/src/rodo.rkt index 959cd64..540a0dc 100644 --- a/src/rodo.rkt +++ b/src/rodo.rkt @@ -263,19 +263,19 @@ ;; Proper usage [(or '#("-h") '#("--help") - '#(help-command)) (help)] - [(vector add-command _) (add (args-ref 1))] - [(vector rm-command _) (rm (args-ref 1))] - [(vector ls-command) (ls)] + '#("help")) (help)] + [(vector "add" _) (add (args-ref 1))] + [(vector "rm" _) (rm (args-ref 1))] + [(vector "ls" ) (ls)] ;; Improper usage ;; This is checked so we can give the user hints on how to ;; use the software if they have part of the command ;; correct - [(vector ls-command _) (displayln-message-list 'error-ls)] - [(vector add-command) (displayln-message-list 'error-add)] - [(vector rm-command) (displayln-message-list 'error-rm)] + [(vector "ls" _) (displayln-message-list 'error-ls)] + [(vector "add") (displayln-message-list 'error-add)] + [(vector "rm") (displayln-message-list 'error-rm)] [(or (vector) - (vector _ ...)) (displayln-message-list 'error-usage)])) + (vector _ ...)) (displayln-message-list 'error-usage)])) (define (main vectorof-args) (process-args vectorof-args))