1740 - correct redraw after reducing editor size

I probably need another test like editor-clears-last-line-on-backspace,
but we aren't testing the boundary, and we're pushing on anyway.

1 files changed, 17 insertions, 20 deletions

diff --git a/edit.mu b/edit.mu
index b5e308a2..97bc8c85 100644
--- a/edit.mu
+++ b/edit.mu
@@ -328,29 +328,26 @@ recipe render [
     }
   }
   {
+    # draw a line after
+    # hack: not for tests
+    break-if screen:address
+    {
+      break-if left:number  # hacky
+      # left side, recipe editor
+      draw-horizontal screen:address, row:number, left:number, right:number, 9480:literal/horizontal-dotted
+    }
+    {
+      break-unless left:number
+      # right side, sandbox editor
+      draw-horizontal screen:address, row:number, left:number, right:number, 9473:literal/horizontal-double
+    }
+    row:number <- add row:number, 1:literal
+  }
+  {
     # clear one more line just in case we just backspaced out of it
     done?:boolean <- greater-or-equal row:number, screen-height:number
     break-if done?:boolean
-    # hack: blank for tests
-    {
-      {
-        break-if screen:address
-        {
-          break-if left:number  # hacky
-          # left side, recipe editor
-          draw-horizontal screen:address, row:number, left:number, right:number, 9480:literal/horizontal-dotted
-        }
-        {
-          break-unless left:number
-          # right side, sandbox editor
-          draw-horizontal screen:address, row:number, left:number, right:number, 9473:literal/horizontal-double
-        }
-      }
-      {
-        break-unless screen:address
-        draw-horizontal screen:address, row:number, left:number, right:number, 32:literal/space
-      }
-    }
+    draw-horizontal screen:address, row:number, left:number, right:number, 32:literal/space
   }
   # update cursor
   {