1 files changed, 2 insertions(+), 1 deletions(-)

M 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 ;