From 0f9a65dc0d10d93319eacf8ccff75a068e5f97a8 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Mon, 26 Oct 2020 22:35:20 -0700 Subject: 7120 - tile: array of lines from file Requires a quick hacky change to Mu compiler. --- apps/tile/environment.mu | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'apps/tile/environment.mu') diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 230fc1be..971e8d9f 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -790,6 +790,10 @@ fn bound-function? w: (addr word), functions-ah: (addr handle function) -> resul subresult <- word-equal? w, "slurp" compare subresult, 0 # false break-if-!= + # if w == "lines" return true + subresult <- word-equal? w, "lines" + compare subresult, 0 # false + break-if-!= # if w == "dup" return true subresult <- word-equal? w, "dup" compare subresult, 0 # false @@ -1558,7 +1562,7 @@ fn clear-canvas _env: (addr environment) { move-cursor screen, 2, start-col print-string screen, "+ - * len" move-cursor screen, 3, start-col - print-string screen, "open read slurp" + print-string screen, "open read slurp lines" move-cursor screen, 4, start-col print-string screen, "dup swap" # currently defined functions -- cgit 1.4.1-2-gfad0