1 files changed, 41 insertions, 0 deletions

@@ -0,0 +1,41 @@
+--- lam.repl
+
+local repl = {}
+local eval = require "eval"
+local read = require "read"
+local util = require "util"
+
+function schemestr(x)
+        if type(x) == "table" then
+                local ts = "(" .. schemestr(util.pop(x))
+                for i,v in ipairs(x) do
+                        ts = string.format("%s %s", ts, schemestr(v))
+                end
+                ts = ts .. ")"
+                return ts
+        elseif x == true then
+                return "#t"
+        elseif x == false then
+                return "#f"
+        else
+                return tostring(x)
+        end
+end
+
+function repl.repl (prompt)
+        prompt = prompt or "lam> "
+        repeat
+                io.write(prompt)
+                io.output():flush()
+                input = io.read()
+                if input == ",q" or input == ",quit" then
+                        break
+                else
+                        val = eval(read(input))
+                        if val then print(schemestr(val)) end
+                end
+        until false
+end
+
+---
+return repl