From ea9a3b8fb74607ec690227c88d89e1546e50576d Mon Sep 17 00:00:00 2001
From: w6vvn <vivienne@w6vvn.net>
Date: Thu, 4 Sep 2025 15:13:25 -0700
Subject: [PATCH] add abbreviations for existing commands

---
 gem300.rkt | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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))