From c0c817206e77266e4890cfc1db3a09a4531782af Mon Sep 17 00:00:00 2001
From: m455 <jessemilk00@gmail.com>
Date: Tue, 17 Apr 2018 22:58:33 -0400
Subject: [PATCH] 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     | 10 ++++++----
 messages.rkt |  2 +-
 2 files changed, 7 insertions(+), 5 deletions(-)

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