From 61c47f6db690b4e2ab0045b44db8017d59334488 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 21 Feb 2021 21:27:42 -0800
Subject: 7773

---
 baremetal/shell/main.mu    | 10 ++--------
 baremetal/shell/sandbox.mu |  4 ++--
 2 files changed, 4 insertions(+), 10 deletions(-)

(limited to 'baremetal')

diff --git a/baremetal/shell/main.mu b/baremetal/shell/main.mu
index e54515ed..436d6104 100644
--- a/baremetal/shell/main.mu
+++ b/baremetal/shell/main.mu
@@ -2,9 +2,6 @@
 # A Lisp with indent-sensitivity and infix, no macros. Commas are ignored.
 
 fn main {
-  var interpreter-storage: interpreter
-  var interpreter/edi: (addr interpreter) <- address interpreter-storage
-#?   initialize-interpreter interpreter
   var sandbox-storage: sandbox
   var sandbox/esi: (addr sandbox) <- address sandbox-storage
   initialize-sandbox sandbox
@@ -15,21 +12,18 @@ fn main {
       compare key, 0
       loop-if-=
       # no way to quit right now; just reboot
-      edit-sandbox sandbox, key, interpreter
+      edit-sandbox sandbox, key
     }
     loop
   }
 }
 
-type interpreter {
+fn run in: (addr stream byte), out: (addr stream byte) {
   # tokenize
   # insert parens
   # transform infix
   # token tree
   # syntax tree
-}
-
-fn run _self: (addr interpreter), in: (addr stream byte), out: (addr stream byte) {
   clear-stream out
   {
     var done?/eax: boolean <- stream-empty? in
diff --git a/baremetal/shell/sandbox.mu b/baremetal/shell/sandbox.mu
index b002ce0a..3b489fdd 100644
--- a/baremetal/shell/sandbox.mu
+++ b/baremetal/shell/sandbox.mu
@@ -59,7 +59,7 @@ fn render-sandbox screen: (addr screen), _self: (addr sandbox), _x: int, _y: int
   var dummy/eax: int <- draw-stream-rightward screen, value, _x, 0x30/xmax, y, 7/fg=grey, 0/bg
 }
 
-fn edit-sandbox _self: (addr sandbox), key: byte, interpreter: (addr interpreter) {
+fn edit-sandbox _self: (addr sandbox), key: byte {
   var self/esi: (addr sandbox) <- copy _self
   var g/edx: grapheme <- copy key
   {
@@ -87,7 +87,7 @@ fn edit-sandbox _self: (addr sandbox), key: byte, interpreter: (addr interpreter
     emit-gap-buffer data, buffer
     var value-ah/eax: (addr handle stream byte) <- get self, value
     var value/eax: (addr stream byte) <- lookup *value-ah
-    run interpreter, buffer, value
+    run buffer, value
     return
   }
   add-grapheme-to-sandbox self, g
-- 
cgit 1.4.1-2-gfad0