From 11d2404fddd2ac06718584dcdf6081c08f4a3cf3 Mon Sep 17 00:00:00 2001 From: m455 Date: Fri, 6 Apr 2018 10:34:40 -0400 Subject: [PATCH] can now create files and check for them --- rodo.rkt | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/rodo.rkt b/rodo.rkt index f143fce..0f67ff2 100755 --- a/rodo.rkt +++ b/rodo.rkt @@ -170,7 +170,10 @@ (prompt-user messages 'choose-y/n)]))) (define (add-item args) - (if (check-for-folder) + (if + (and + (check-for-folder) + (check-for-file)) (begin (d-hash-ref messages 'item-added-prefix) (d-vector-ref args 1) @@ -180,7 +183,10 @@ (d-hash-ref messages 'try-initializing)))) (define (remove-item args) - (if (check-for-folder) + (if + (and + (check-for-folder) + (check-for-file)) (begin (d-hash-ref messages 'item-removed-prefix) (d-vector-ref args 1)