diff options
Diffstat (limited to 'apps')
-rw-r--r-- | apps/tile/word.mu | 15 |
1 files changed, 0 insertions, 15 deletions
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 |