diff --git a/gem300.rkt b/gem300.rkt index 49084e8..35d2fc4 100644 --- a/gem300.rkt +++ b/gem300.rkt @@ -41,13 +41,15 @@ (let ([matches (regexp-match #px"(\\w+)\\s*(.*)" (read-line))]) (cond - ;; nothing was given. default command - [(not matches) + ;; next command. also default + [(or (not matches) + (string=? (cadr matches) "next") + (string=? (cadr matches) "n")) (next-cmd)] ;; go command - [(string=? (cadr matches) "go") + [(or (string=? (cadr matches) "go") + (string=? (cadr matches) "g")) (go-cmd (caddr matches))])) - (repl))