From ca1d6d0fc4d9803c206896c4abe47875528c95b1 Mon Sep 17 00:00:00 2001
From: m455 <jessemilk00@gmail.com>
Date: Fri, 6 Apr 2018 00:12:58 -0400
Subject: [PATCH] fixed some functions

---
 rodo.rkt | 28 ++++++++++++++++++----------
 1 file changed, 18 insertions(+), 10 deletions(-)

diff --git a/rodo.rkt b/rodo.rkt
index 0f9bcfb..60174a4 100755
--- a/rodo.rkt
+++ b/rodo.rkt
@@ -68,6 +68,12 @@
       " init` "
       "to set it up\n")
 
+    'terminating 
+    (string-append 
+      "> Exiting " 
+      program-name 
+      " ...\n")
+
     'choose-y/n
     "> Error: Please choose y or n\n"
 
@@ -81,13 +87,7 @@
     "> Removed "
 
     'item-removed-suffix 
-    " from list\n"
-
-    'terminating 
-    (string-append 
-      "> Exiting " 
-      program-name 
-      " ...\n")))
+    " from list\n"))
 
 (define y/n 
   (hash
@@ -154,6 +154,16 @@
       (d-hash-ref messages 'not-found)
       (d-hash-ref messages 'try-initializing))))
 
+(define (remove-item args)
+  (if (check-for-folder)
+    (begin
+      (d-hash-ref messages 'item-removed-prefix) 
+      (d-vector-ref args 1) 
+      (d-hash-ref messages 'item-removed-suffix))
+    (begin
+      (d-hash-ref messages 'not-found)
+      (d-hash-ref messages 'try-initializing))))
+
 (define (check-args args)
   (let 
     ([args-length (vector-length args)])
@@ -166,9 +176,7 @@
       [(and 
          (equal? args-length 2) 
          (equal? (vector-member "remove" args) 0))
-       (d-hash-ref messages 'item-removed-prefix) 
-       (d-vector-ref args 1) 
-       (d-hash-ref messages 'item-removed-suffix)]
+       (remove-item args)]
 
       [(and 
          (equal? args-length 1)