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

correctly handle bottoming out document buffer

Browse Source
This commit is contained in:
w6vvn
2025-09-04 19:11:47 -07:00
parent 566d2ff40e
commit f02b2c976e
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gem300.rkt
View File

@@ -31,7 +31,8 @@
(define (next-cmd) (define (next-cmd)
(define (iter depth) (define (iter depth)
(when (> depth 0) (when (and (> depth 0)
(> (pipe-content-length document-buffer) 0))
(let () (let ()
(displayln (read-line document-buffer)) (displayln (read-line document-buffer))
(iter (sub1 depth))))) (iter (sub1 depth)))))