From b02f59c17fd813374f6ce8bdec860dbe26dedd79 Mon Sep 17 00:00:00 2001 From: w6vvn Date: Thu, 4 Sep 2025 15:22:36 -0700 Subject: [PATCH] add a visit link command --- gem300.rkt | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/gem300.rkt b/gem300.rkt index 17b8b1f..16e6657 100644 --- a/gem300.rkt +++ b/gem300.rkt @@ -39,7 +39,10 @@ (iter 10) (newline) (let ([remaining (pipe-content-length document-buffer)]) - (printf "~a bytes remaining\n" remaining))) + (printf "~a bytes remaining\n" remaining))) + +(define (visit-cmd line) + (go-cmd (gmi:match-link document (string->number line)))) (define (repl) (display "G-300 > ") @@ -55,6 +58,10 @@ ;; go command [(or (string=? (cadr matches) "go") (string=? (cadr matches) "g")) - (go-cmd (caddr matches))])) + (go-cmd (caddr matches))] + + ;; visit link command + [(andmap char-numeric? (string->list (cadr matches))) + (visit-cmd (cadr matches))])) (repl))