w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add abbreviations for existing commands

Browse Source
This commit is contained in:
w6vvn
2025-09-04 15:13:25 -07:00
parent e3590502a9
commit ea9a3b8fb7
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
gem300.rkt
View File

@@ -41,13 +41,15 @@
(let ([matches (regexp-match #px"(\\w+)\\s*(.*)" (read-line))]) (let ([matches (regexp-match #px"(\\w+)\\s*(.*)" (read-line))])
(cond (cond
;; nothing was given. default command ;; next command. also default
[(not matches) [(or (not matches)
(string=? (cadr matches) "next")
(string=? (cadr matches) "n"))
(next-cmd)] (next-cmd)]
;; go command ;; go command
[(string=? (cadr matches) "go") [(or (string=? (cadr matches) "go")
(string=? (cadr matches) "g"))
(go-cmd (caddr matches))])) (go-cmd (caddr matches))]))
(repl)) (repl))