fixed a bug which didn't allow random nicethigns to appear
parent
00bee864be
commit
f7db69691f
|
@ -309,8 +309,8 @@
|
||||||
[(vector (== init-command)) (init)]
|
[(vector (== init-command)) (init)]
|
||||||
[(vector (== add-command) a) (add a)]
|
[(vector (== add-command) a) (add a)]
|
||||||
[(vector (== rm-command) a) (rm a)]
|
[(vector (== rm-command) a) (rm a)]
|
||||||
[(vector _ ...) (displayln-messages-ref 'error-incorrect-usage)]
|
[_ (random-message)]
|
||||||
[_ (random-message)]))
|
[(vector _ ...) (displayln-messages-ref 'error-incorrect-usage)]))
|
||||||
|
|
||||||
(define (main vectorof-args)
|
(define (main vectorof-args)
|
||||||
(process-args vectorof-args))
|
(process-args vectorof-args))
|
||||||
|
|
Loading…
Reference in New Issue