correctly handle bottoming out document buffer

2025-09-04 19:11:47 -07:00
parent 566d2ff40e
commit f02b2c976e
1 changed files with 2 additions and 1 deletions
--- a/gem300.rkt
+++ b/gem300.rkt
@@ -31,7 +31,8 @@

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