From 6966408e5394e0d82150cd7370fac57dafe8f6e8 Mon Sep 17 00:00:00 2001 From: m455 Date: Wed, 6 Feb 2019 23:33:04 -0500 Subject: [PATCH] added check for negative numbers --- args.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/args.rkt b/args.rkt index d35889f..fa2ddbb 100644 --- a/args.rkt +++ b/args.rkt @@ -30,6 +30,8 @@ (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 + (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)]