diff --git a/args.rkt b/args.rkt index 2c96e10..156a62c 100644 --- a/args.rkt +++ b/args.rkt @@ -1,6 +1,7 @@ #lang racket/base (require racket/vector + racket/list "config.rkt" "init.rkt" "util.rkt" @@ -27,7 +28,9 @@ [(and (equal? args-length 2) - (equal? (vector-member remove-command args) 0)) + (equal? (vector-member remove-command args) 0) + (not (equal? (vector-member "0" args) 1)) + (vector-member (vector-ref args 1) (list->vector (map number->string (range (length (file->string-list path))))))) (remove-item args)] [(and