add abbreviations for existing commands

2025-09-04 15:13:25 -07:00
parent e3590502a9
commit ea9a3b8fb7
1 changed files with 6 additions and 4 deletions
--- 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))