2 files changed, 13 insertions, 1 deletions

@@ -4,6 +4,8 @@ local m = {}
 local type = require "type"
 local isa, null = type.isa, type.null
 local math = math
+local dump = require("dump").dump
+-- local load = require("repl").load -- circular dependency :<
 local util = require "util"
 local assert_arity = util.assert_arity
 
@@ -43,6 +45,17 @@ m.env = { -- all functions here take R, which is the list of arguments
                         assert_arity(r, 0, 0)
                         io.write("\n")
                 end,
+        dump =
+                function (r)
+                        assert_arity(r, 1, 1)
+                        return dump(r[1])
+                end,
+        --[[    load = -- circular dependency :<
+                function (r)
+                assert_arity(r, 1, 1)
+                load(r[1])
+                end,
+        --]]
         ------- numbers
         -- todo: assert all of these are numbers
         ["number?"] =
@@ -41,7 +41,6 @@ function m.read_eval (filename, interactive)
                 io.write(lam)
                 io.output():setvbuf("line")
         else
-                io.output(io.stdout) -- hmmm
                 io.output():setvbuf("no")
         end
         repeat