about summary refs log tree commit diff stats
path: root/apps/tile
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-10-15 20:46:01 -0700
committerKartik Agaram <vc@akkartik.com>2020-10-15 20:46:01 -0700
commit70da3b384695acc628c31922d1ed2d14da2a3eed (patch)
treeadaec94e2a409e283ea704fbfa023efcf3514d59 /apps/tile
parent6fdfd5607bc28e04f5c122ef9585489c2d8c9cfe (diff)
downloadmu-70da3b384695acc628c31922d1ed2d14da2a3eed.tar.gz
7035
ctrl-f and ctrl-b working right. Now ctrl-u is segfaulting. Also expanding
words.
Diffstat (limited to 'apps/tile')
-rw-r--r--apps/tile/environment.mu2
-rw-r--r--apps/tile/main.mu8
2 files changed, 6 insertions, 4 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu
index 641f3166..56a35b0f 100644
--- a/apps/tile/environment.mu
+++ b/apps/tile/environment.mu
@@ -221,7 +221,6 @@ $process:body: {
       {
         compare prev-word, 0
         break-if-=
-        copy-object prev-word-ah, cursor-word-ah
         cursor-to-end prev-word
         var cursor-call-path/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path
         decrement-final-element cursor-call-path
@@ -259,7 +258,6 @@ $process:body: {
         compare next-word, 0
         break-if-=
 #?         print-string 0, "BB\n"
-        copy-object next-word-ah, cursor-word-ah
         cursor-to-end next-word
         var cursor-call-path/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path
         increment-final-element cursor-call-path
diff --git a/apps/tile/main.mu b/apps/tile/main.mu
index 57def626..24d82fbf 100644
--- a/apps/tile/main.mu
+++ b/apps/tile/main.mu
@@ -79,9 +79,13 @@ fn test {
   process env, g
   g <- copy 0x20  # space
   process env, g
-  g <- copy 1  # 'ctrl-a'
+  g <- copy 0x62  # 'b'
   process env, g
-  g <- copy 5  # 'ctrl-e'
+  g <- copy 0x20  # space
+  process env, g
+  g <- copy 0x63  # 'c'
+  process env, g
+  g <- copy 2  # 'ctrl-b'
   process env, g
   render env
 }