From 8eb4cd799ba14edd4b4e9bcf4ca59b5147dcb789 Mon Sep 17 00:00:00 2001
From: m455 <jesselaprade@gmail.com>
Date: Thu, 7 Feb 2019 00:27:32 -0500
Subject: [PATCH] removed the negative number bug, and stopped allowing symbols

---
 README.md |  1 -
 args.rkt  | 17 ++++++++++-------
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/README.md b/README.md
index f5ed45b..922eae6 100644
--- a/README.md
+++ b/README.md
@@ -6,7 +6,6 @@ By Jesse Laprade
 
 ## Todo
 
-- [ ] Don't allow users to remove negative numbers
 - [ ] Only allow quoted items to be added
 - [ ] Add color option to config file
 - [ ] Encrypt todo list file
diff --git a/args.rkt b/args.rkt
index fa2ddbb..ad9a82c 100644
--- a/args.rkt
+++ b/args.rkt
@@ -10,37 +10,40 @@
 (provide (all-defined-out))
 
 (define (check-args args)
-  (let([args-length (vector-length args)])
+  (let ([args-length (vector-length args)])
     (cond
       [(equal? args-length 0)
        (util:display-hash-ref messages:messages 'show-usage)]
 
+      ;; ls
       [(and
         (equal? args-length 1)
         (equal? (vector:vector-member config:list-command args) 0))
        (util:show-list)]
 
+      ;; add
       [(and
         (equal? args-length 2)
         (equal? (vector-ref args 0) config:add-command))
        (util:add-item args)]
 
+      ;; rm
       [(and
         (equal? args-length 2)
         (equal? (vector:vector-member config:remove-command args) 0)
-        ;; Don't allow user to remove zeroth item
-        (not (equal? (vector:vector-member "0" args) 1))
-        ;; Number is positive
+        (real? (string->number (vector-ref args 1)))
         (positive? (string->number (vector-ref args 1)))
-        ;; Don't allow removal of items beyond last item
-        (not (> (string->number (vector-ref args 1)) (length (util:file->string-list config:path)))))
-       (util:remove-item args)]
+        (not (> (string->number (vector-ref args 1)) (length (util:file->string-list config:path))))
+        (not (< (string->number (vector-ref args 1)) (car (list:range (length (util:file->string-list config:path))))))
+       (util:remove-item args))]
 
+      ;; init
       [(and
         (equal? args-length 1)
         (equal? (vector:vector-member config:initialize-command args) 0))
        (init:initialize)]
 
+      ;; help
       [(and
         (equal? args-length 1)
         (member (vector-ref args 0) config:help-command))