about summary refs log tree commit diff stats
path: root/apps
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-10-14 03:51:50 -0700
committerKartik Agaram <vc@akkartik.com>2020-10-14 03:51:50 -0700
commit098dd58df4cfb6a028af022dcc8e06cd909e80d3 (patch)
treeb68906bb472b29e5f51e0e59af3c1d642453aafd /apps
parent5fe86b8348817522477f0399af39120ba6afe3f7 (diff)
downloadmu-098dd58df4cfb6a028af022dcc8e06cd909e80d3.tar.gz
7021
Diffstat (limited to 'apps')
-rw-r--r--apps/tile/environment.mu4
-rw-r--r--apps/tile/main.mu4
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
 }