diff --git a/args.rkt b/args.rkt index b43402b..2c96e10 100644 --- a/args.rkt +++ b/args.rkt @@ -12,16 +12,18 @@ (let ([args-length (vector-length args)]) (cond + [(equal? args-length 0) + (d-hash-ref messages 'show-usage)] + [(and (equal? args-length 1) (equal? (vector-member list-command args) 0)) (show-list)] [(and - (equal? (vector-ref args 0) add-command) - (equal? (vector-member add-command args) 0)) - (add-item args) - (cdr (vector->list args))] + (equal? args-length 2) + (equal? (vector-ref args 0) add-command)) + (add-item args)] [(and (equal? args-length 2) diff --git a/messages.rkt b/messages.rkt index d536fd8..e3e0bde 100644 --- a/messages.rkt +++ b/messages.rkt @@ -40,7 +40,7 @@ "\x09number corresponds to which item to remove it.\n") 'empty-todo-list - "Error > There is nothing in your list \n" + "> There is nothing in your list \n" 'show-usage (string-append