From f02b2c976e2370e0bb50af5b283ef394ff8e1f92 Mon Sep 17 00:00:00 2001
From: w6vvn <vivienne@w6vvn.net>
Date: Thu, 4 Sep 2025 19:11:47 -0700
Subject: [PATCH] correctly handle bottoming out document buffer

---
 gem300.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gem300.rkt b/gem300.rkt
index 16e6657..8bb47aa 100644
--- 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)))))