From b16a1a70bf4b18ea68341501dd12a73e098f83eb Mon Sep 17 00:00:00 2001 From: Jesse Laprade Date: Thu, 16 Jul 2020 17:03:53 -0400 Subject: [PATCH] simplified pattern matching --- src/rodo.rkt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/rodo.rkt b/src/rodo.rkt index 8c7c1c7..47e9244 100644 --- a/src/rodo.rkt +++ b/src/rodo.rkt @@ -275,16 +275,14 @@ (format " ~a ~a 2" program-name rm-command)))) (define (process-args vectorof-args) - (define (args-ref number) - (vector-ref vectorof-args number)) (match vectorof-args [(or (vector (== help-command-1)) (vector (== help-command-2)) (vector (== help-command-3))) (help)] [(vector (== ls-command)) (ls)] [(vector (== init-command)) (init)] - [(vector (== add-command) _) (add (args-ref 1))] - [(vector (== rm-command) _) (rm (args-ref 1))] + [(vector (== add-command) a) (add a)] + [(vector (== rm-command) a) (rm a)] [(vector _ _ _ ...) (displayln-messages-ref 'error-too-many-arguments)] [(vector _ _)