fixed bug that prevented user from adding long strings. turns out it was just a wrapper problem. changed an error message to a nicer message

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)

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