duskos

commit c3e4eea048bf5a419dd33c258744aeb19b04d74e
parent 55227af250141063cd98a28d0df3f98502d5e3c3
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Fri,  7 Apr 2023 21:19:20 -0400

text/ged: fix PS leak

Back to dogfooding under my old laptop after this long HAL development. Feels
nice.

Diffstat:
M
fs/text/ged.fs
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/fs/text/ged.fs b/fs/text/ged.fs
@@ -28,7 +28,8 @@ grid COLS grid LINES * 1- const _maxpos
 : _spitpage ( fromidx -- )
   0 _height for2 ( fromidx )
     dup i + dup edbuf :linecnt < if ( fromidx idx )
-      i grid COLS * swap edbuf :line _spitline else i grid :clrline then
+      i grid COLS * swap edbuf :line _spitline
+      else drop i grid :clrline then
     next drop ;
 
 : _top! ( lineno -- ) dup to _top _spitpage ;