From 446a6704cbe875326920bb6cc287ebdb752dbc41 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 19 Feb 2021 02:39:22 -0800
Subject: 7757

---
 apps/tile/word.mu | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'apps/tile')

diff --git a/apps/tile/word.mu b/apps/tile/word.mu
index 224c876c..b4f5000b 100644
--- a/apps/tile/word.mu
+++ b/apps/tile/word.mu
@@ -111,21 +111,6 @@ fn word-length _self: (addr word) -> _/eax: int {
   return result
 }
 
-fn first-word _in: (addr handle word), out: (addr handle word) {
-  var curr-ah/esi: (addr handle word) <- copy _in
-  var curr/eax: (addr word) <- lookup *curr-ah
-  var prev/edi: (addr handle word) <- copy 0
-  {
-    prev <- get curr, prev
-    var curr/eax: (addr word) <- lookup *prev
-    compare curr, 0
-    break-if-=
-    copy-object prev, curr-ah
-    loop
-  }
-  copy-object curr-ah, out
-}
-
 fn final-word _in: (addr handle word), out: (addr handle word) {
   var curr-h: (handle word)
   var curr-ah/esi: (addr handle word) <- address curr-h
-- 
cgit 1.4.1-2-gfad0