about summary refs log tree commit diff stats
path: root/shell
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-06-11 17:34:45 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-06-11 17:34:45 -0700
commit14f00ab3697f7d5351ea23b2810a56e2c00dd4b7 (patch)
treea852b2537f0b2d819facdf9c814ce11d1668337c /shell
parent6cc2cd6cb5e0a1d12d956a64a5a109fa1dcacf97 (diff)
downloadmu-14f00ab3697f7d5351ea23b2810a56e2c00dd4b7.tar.gz
.
Diffstat (limited to 'shell')
-rw-r--r--shell/sandbox.mu6
1 files changed, 3 insertions, 3 deletions
diff --git a/shell/sandbox.mu b/shell/sandbox.mu
index 965752e1..769177c1 100644
--- a/shell/sandbox.mu
+++ b/shell/sandbox.mu
@@ -631,8 +631,8 @@ fn run-sandbox _self: (addr sandbox), globals: (addr global-table) {
   clear-screen-cell screen-cell
   var keyboard-cell/eax: (addr handle cell) <- get self, keyboard-var
   rewind-keyboard-cell keyboard-cell  # don't clear keys from before
-  # read, eval, save gap buffer
-  run data-ah, eval-result-ah, globals, definitions-created, trace, screen-cell, keyboard-cell
+  #
+  read-evaluate-and-save-to-globals data-ah, eval-result-ah, globals, definitions-created, trace, screen-cell, keyboard-cell
   # if necessary, initialize a new gap-buffer for sandbox
   {
     compare globals, 0
@@ -655,7 +655,7 @@ fn run-sandbox _self: (addr sandbox), globals: (addr global-table) {
   print-cell eval-result-ah, value, trace
 }
 
-fn run _in-ah: (addr handle gap-buffer), result-ah: (addr handle cell), globals: (addr global-table), definitions-created: (addr stream int), trace: (addr trace), screen-cell: (addr handle cell), keyboard-cell: (addr handle cell) {
+fn read-evaluate-and-save-to-globals _in-ah: (addr handle gap-buffer), result-ah: (addr handle cell), globals: (addr global-table), definitions-created: (addr stream int), trace: (addr trace), screen-cell: (addr handle cell), keyboard-cell: (addr handle cell) {
   var in-ah/eax: (addr handle gap-buffer) <- copy _in-ah
   var in/eax: (addr gap-buffer) <- lookup *in-ah
   var read-result-h: (handle cell)