diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-11-15 23:13:23 -0800 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-11-15 23:13:23 -0800 |
commit | 002f2609e91ed2e49c250202877290f58609a982 (patch) | |
tree | 079a758e20ff5137b197abc9ce535810351ae12e /apps/tile/environment.mu | |
parent | 2715d377b6108b0a607d9322d470bedd77c9c717 (diff) | |
download | mu-002f2609e91ed2e49c250202877290f58609a982.tar.gz |
7248 - mu.subx: new primitive 'clear-object'
Diffstat (limited to 'apps/tile/environment.mu')
-rw-r--r-- | apps/tile/environment.mu | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index b774356d..c70efd7c 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -522,8 +522,7 @@ $process-sandbox-rename:body: { compare key, 0x1b # esc $process-sandbox-rename:cancel: { break-if-!= - var empty: (handle word) - copy-handle empty, new-name-ah + clear-object new-name-ah break $process-sandbox-rename:body } # if 'enter' pressed, perform rename @@ -586,9 +585,7 @@ $process-sandbox-rename:body: { # sandbox->data = new-line copy-handle new-line-h, sandbox-slot # clear partial-name-for-cursor-word - var empty: (handle word) - copy-handle empty, new-name-ah -#? # XXX + clear-object new-name-ah #? var cursor-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path #? var cursor/eax: (addr call-path-element) <- lookup *cursor-ah #? var word-at-cursor-ah/eax: (addr handle word) <- get cursor, word @@ -643,8 +640,7 @@ $process-sandbox-define:body: { compare key, 0x1b # esc $process-sandbox-define:cancel: { break-if-!= - var empty: (handle word) - copy-handle empty, new-name-ah + clear-object new-name-ah break $process-sandbox-define:body } # if 'enter' pressed, perform define |