7345

1 files changed, 14 insertions, 14 deletions

diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu
index 776b4185..5c17a97d 100644
--- a/apps/tile/environment.mu
+++ b/apps/tile/environment.mu
@@ -1899,20 +1899,6 @@ fn render-column screen: (addr screen), functions: (addr handle function), bindi
   return right-col
 }
 
-fn clear-canvas _env: (addr environment) {
-  var env/esi: (addr environment) <- copy _env
-  var screen-ah/edi: (addr handle screen) <- get env, screen
-  var _screen/eax: (addr screen) <- lookup *screen-ah
-  var screen/edi: (addr screen) <- copy _screen
-  clear-screen screen
-  var nrows/eax: (addr int) <- get env, nrows
-  var sep-col/ecx: (addr int) <- get env, code-separator-col
-  # divider
-  draw-vertical-line screen, 1, *nrows, *sep-col
-  # primitives
-  var dummy/eax: int <- render-primitives screen, *nrows, *sep-col
-}
-
 # wordstar-style cheatsheet of shortcuts
 fn render-menu _env: (addr environment) {
   var env/esi: (addr environment) <- copy _env
@@ -1967,6 +1953,20 @@ fn render-menu _env: (addr environment) {
   print-string screen, " define function  "
 }
 
+fn clear-canvas _env: (addr environment) {
+  var env/esi: (addr environment) <- copy _env
+  var screen-ah/edi: (addr handle screen) <- get env, screen
+  var _screen/eax: (addr screen) <- lookup *screen-ah
+  var screen/edi: (addr screen) <- copy _screen
+  clear-screen screen
+  var nrows/eax: (addr int) <- get env, nrows
+  var sep-col/ecx: (addr int) <- get env, code-separator-col
+  # divider
+  draw-vertical-line screen, 1, *nrows, *sep-col
+  # primitives
+  var dummy/eax: int <- render-primitives screen, *nrows, *sep-col
+}
+
 # return value: top-most row written to
 fn render-primitives screen: (addr screen), bottom-margin-row: int, right-col: int -> _/eax: int {
   # render primitives from the bottom of the screen upward