diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-09 23:35:19 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-09 23:35:19 -0700 |
| commit | 5b7ccbc8f4f16a1c104f3415cccbdf5cce55727f (patch) | |
| tree | 8b71da7aa43c5e8a8d92043004c15c0e9fb0811d /apps/tile/environment.mu | |
| parent | cbd076e02c0b7049bfb87290fc93a026cc7b355d (diff) | |
| download | mu-5b7ccbc8f4f16a1c104f3415cccbdf5cce55727f.tar.gz | |
6985 - tile: make calls read-only
Diffstat (limited to 'apps/tile/environment.mu')
| -rw-r--r-- | apps/tile/environment.mu | 8 |
1 files changed, 8 insertions, 0 deletions
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-!= |