diff options
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/001-editor.mu | 6 |
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 { |