about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-05-04 19:46:49 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-05-04 19:46:49 -0700
commit7465fbb19f3cf2a9c262e634502d07b4215c1470 (patch)
tree31be34c8f50bdfeaf251f7b9a63a5dd857aa7ca6
parent66c18fda1db4870a67df4887d131e57ce5dc7735 (diff)
downloadmu-7465fbb19f3cf2a9c262e634502d07b4215c1470.tar.gz
.
-rw-r--r--shell/sandbox.mu12
1 files changed, 6 insertions, 6 deletions
diff --git a/shell/sandbox.mu b/shell/sandbox.mu
index 09b88e6d..c26c5408 100644
--- a/shell/sandbox.mu
+++ b/shell/sandbox.mu
@@ -609,13 +609,13 @@ fn run _in-ah: (addr handle gap-buffer), out: (addr stream byte), globals: (addr
     break-if-=
     return
   }
-  var nil-storage: (handle cell)
-  var nil-ah/eax: (addr handle cell) <- address nil-storage
+  var nil-h: (handle cell)
+  var nil-ah/eax: (addr handle cell) <- address nil-h
   allocate-pair nil-ah
-  var eval-result-storage: (handle cell)
-  var eval-result/edi: (addr handle cell) <- address eval-result-storage
+  var eval-result-h: (handle cell)
+  var eval-result-ah/edi: (addr handle cell) <- address eval-result-h
   debug-print "^", 4/fg, 0xc5/bg=blue-bg
-  evaluate read-result-ah, eval-result, *nil-ah, globals, trace, screen-cell, keyboard-cell, 1/call-number
+  evaluate read-result-ah, eval-result-ah, *nil-ah, globals, trace, screen-cell, keyboard-cell, 1/call-number
   debug-print "$", 4/fg, 0xc5/bg=blue-bg
   var error?/eax: boolean <- has-errors? trace
   {
@@ -628,7 +628,7 @@ fn run _in-ah: (addr handle gap-buffer), out: (addr stream byte), globals: (addr
   # command.
   maybe-stash-gap-buffer-to-global globals, read-result-ah, _in-ah
   clear-stream out
-  print-cell eval-result, out, trace
+  print-cell eval-result-ah, out, trace
   mark-lines-dirty trace
 }