1 files changed, 0 insertions, 42 deletions

@@ -1,42 +0,0 @@
---- lam.repl
-
-local repl = {}
-local eval = require "eval"
-local read = require "read"
-local util = require "util"
-table.unpack = table.unpack or unpack
-
-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