From 2929ca471b36b604a868a1e7e5f0b74cf11c9b8f Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Fri, 25 Sep 2020 16:58:18 -0700
Subject: 6857

---
 apps/tile/data.mu | 9 ---------
 apps/tile/word.mu | 9 +++++++++
 2 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'apps/tile')

diff --git a/apps/tile/data.mu b/apps/tile/data.mu
index 40b24df7..3319003b 100644
--- a/apps/tile/data.mu
+++ b/apps/tile/data.mu
@@ -92,15 +92,6 @@ fn initialize-line _line: (addr line), out: (addr handle word) {
   initialize-word word
 }
 
-fn initialize-word _self: (addr word) {
-  var self/esi: (addr word) <- copy _self
-  var data-ah/eax: (addr handle gap-buffer) <- get self, scalar-data
-  allocate data-ah
-  var data/eax: (addr gap-buffer) <- lookup *data-ah
-  initialize-gap-buffer data
-  # TODO: sometimes initialize box-data rather than scalar-data
-}
-
 fn create-primitive-defs _self: (addr handle function) {
   # x 2* = x 2 *
   var self/esi: (addr handle function) <- copy _self
diff --git a/apps/tile/word.mu b/apps/tile/word.mu
index d8b7778a..8016a496 100644
--- a/apps/tile/word.mu
+++ b/apps/tile/word.mu
@@ -1,3 +1,12 @@
+fn initialize-word _self: (addr word) {
+  var self/esi: (addr word) <- copy _self
+  var data-ah/eax: (addr handle gap-buffer) <- get self, scalar-data
+  allocate data-ah
+  var data/eax: (addr gap-buffer) <- lookup *data-ah
+  initialize-gap-buffer data
+  # TODO: sometimes initialize box-data rather than scalar-data
+}
+
 ## some helpers for creating words. mostly for tests
 
 fn initialize-word-with _self: (addr word), s: (addr array byte) {
-- 
cgit 1.4.1-2-gfad0