diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-10-14 03:51:50 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-10-14 03:51:50 -0700 |
commit | 098dd58df4cfb6a028af022dcc8e06cd909e80d3 (patch) | |
tree | b68906bb472b29e5f51e0e59af3c1d642453aafd /apps | |
parent | 5fe86b8348817522477f0399af39120ba6afe3f7 (diff) | |
download | mu-098dd58df4cfb6a028af022dcc8e06cd909e80d3.tar.gz |
7021
Diffstat (limited to 'apps')
-rw-r--r-- | apps/tile/environment.mu | 4 | ||||
-rw-r--r-- | apps/tile/main.mu | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 9b45b43a..641f3166 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -283,7 +283,7 @@ $process:body: { break-if-!= # move cursor to initial word of sandbox var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path - allocate cursor-call-path-ah + initialize-path-from-sandbox sandbox, cursor-call-path-ah # move cursor to start of initial word 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 @@ -299,7 +299,7 @@ $process:body: { break-if-!= # move cursor to final word of sandbox var cursor-call-path-ah/ecx: (addr handle call-path-element) <- get sandbox, cursor-call-path - allocate cursor-call-path-ah + initialize-path-from-sandbox sandbox, cursor-call-path-ah var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah var dest/eax: (addr handle word) <- get cursor-call-path, word final-word dest, dest diff --git a/apps/tile/main.mu b/apps/tile/main.mu index e9d1066f..611289f9 100644 --- a/apps/tile/main.mu +++ b/apps/tile/main.mu @@ -77,6 +77,10 @@ fn test { initialize-environment-with-fake-screen env, 5, 0xa var g/eax: grapheme <- copy 0x61 # 'a' process env, g + g <- copy 1 # 'ctrl-a' + process env, g + g <- copy 5 # 'ctrl-e' + process env, g render env } |