From 5b7ccbc8f4f16a1c104f3415cccbdf5cce55727f Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Fri, 9 Oct 2020 23:35:19 -0700 Subject: 6985 - tile: make calls read-only --- apps/tile/environment.mu | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 759ff70c..cbbae239 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -173,6 +173,14 @@ $process:body: { toggle-cursor-word sandbox break $process:body } + # if call, break + var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path + var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah + var next-cursor-element-ah/eax: (addr handle call-path-element) <- get cursor-call-path, next + var next-cursor-element/eax: (addr call-path-element) <- lookup *next-cursor-element-ah + compare next-cursor-element, 0 + break-if-!= $process:body + # - remaining keys only work at the top row outside any function calls compare key, 0x7f # del (backspace on Macs) { break-if-!= -- cgit 1.4.1-2-gfad0