3849

1 files changed, 20 insertions, 20 deletions

diff --git a/080display.cc b/080display.cc
index eb9cf0a9..691b6a00 100644
--- a/080display.cc
+++ b/080display.cc
@@ -84,25 +84,6 @@ case CLEAR_DISPLAY: {
 }
 
 :(before "End Primitive Recipe Declarations")
-CLEAR_LINE_ON_DISPLAY,
-:(before "End Primitive Recipe Numbers")
-put(Recipe_ordinal, "clear-line-on-display", CLEAR_LINE_ON_DISPLAY);
-:(before "End Primitive Recipe Checks")
-case CLEAR_LINE_ON_DISPLAY: {
-  break;
-}
-:(before "End Primitive Recipe Implementations")
-case CLEAR_LINE_ON_DISPLAY: {
-  CHECK_SCREEN;
-  int width = tb_width();
-  for (int x = Display_column;  x < width;  ++x) {
-    tb_change_cell(x, Display_row, ' ', TB_WHITE, TB_BLACK);
-  }
-  tb_set_cursor(Display_column, Display_row);
-  break;
-}
-
-:(before "End Primitive Recipe Declarations")
 PRINT_CHARACTER_TO_DISPLAY,
 :(before "End Primitive Recipe Numbers")
 put(Recipe_ordinal, "print-character-to-display", PRINT_CHARACTER_TO_DISPLAY);
@@ -442,7 +423,26 @@ case INTERACTIONS_LEFT: {
   break;
 }
 
-//: hack to make text-mode apps more responsive under Unix
+//: hacks to make text-mode apps more responsive under Unix
+
+:(before "End Primitive Recipe Declarations")
+CLEAR_LINE_ON_DISPLAY,
+:(before "End Primitive Recipe Numbers")
+put(Recipe_ordinal, "clear-line-on-display", CLEAR_LINE_ON_DISPLAY);
+:(before "End Primitive Recipe Checks")
+case CLEAR_LINE_ON_DISPLAY: {
+  break;
+}
+:(before "End Primitive Recipe Implementations")
+case CLEAR_LINE_ON_DISPLAY: {
+  CHECK_SCREEN;
+  int width = tb_width();
+  for (int x = Display_column;  x < width;  ++x) {
+    tb_change_cell(x, Display_row, ' ', TB_WHITE, TB_BLACK);
+  }
+  tb_set_cursor(Display_column, Display_row);
+  break;
+}
 
 :(before "End Primitive Recipe Declarations")
 CLEAR_DISPLAY_FROM,