about summary refs log tree commit diff stats
path: root/sandbox
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2017-04-16 15:16:22 -0700
committerKartik K. Agaram <vc@akkartik.com>2017-04-16 15:16:22 -0700
commitb2a2dc9593bd8a06977830f228ee86bb80c6a36e (patch)
tree1c4a8f52d10b05a8988b1e9d6ed35b6738ff239c /sandbox
parentace7ffb714ce5314c665f28945ee0f3f1664f9ca (diff)
downloadmu-b2a2dc9593bd8a06977830f228ee86bb80c6a36e.tar.gz
3825
Diffstat (limited to 'sandbox')
-rw-r--r--sandbox/001-editor.mu6
1 files changed, 6 insertions, 0 deletions
diff --git a/sandbox/001-editor.mu b/sandbox/001-editor.mu
index 717e147c..a6dde85b 100644
--- a/sandbox/001-editor.mu
+++ b/sandbox/001-editor.mu
@@ -237,6 +237,12 @@ def clear-rest-of-screen screen:&:screen, row:num, left:num, right:num -> screen
   local-scope
   load-ingredients
   row <- add row, 1
+  # if it's the real screen, use the optimized primitive
+  {
+    break-if screen
+    clear-display-from row, left, left, right
+    return
+  }
   screen <- move-cursor screen, row, left
   screen-height:num <- screen-height screen
   {