From 37e8e05721083b34c1a309d3db8337f433f2b492 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 21 Feb 2021 22:10:19 -0800
Subject: 7778

---
 baremetal/shell/read.mu | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'baremetal/shell')

diff --git a/baremetal/shell/read.mu b/baremetal/shell/read.mu
index ba575d83..ced559b1 100644
--- a/baremetal/shell/read.mu
+++ b/baremetal/shell/read.mu
@@ -1,5 +1,5 @@
 # out is not allocated
-fn read-cell in: (addr gap-buffer), _out: (addr handle cell) {
+fn read-cell in: (addr gap-buffer), out: (addr handle cell) {
   # TODO:
   #   tokenize
   #   insert parens
@@ -7,7 +7,10 @@ fn read-cell in: (addr gap-buffer), _out: (addr handle cell) {
   #   token tree
   #   syntax tree
   rewind-gap-buffer in
-  # read symbol
+  read-symbol in, out
+}
+
+fn read-symbol in: (addr gap-buffer), _out: (addr handle cell) {
   var out/eax: (addr handle cell) <- copy _out
   new-symbol out
   var out-a/eax: (addr cell) <- lookup *out
-- 
cgit 1.4.1-2-gfad0