uh new start

1 files changed, 5 insertions, 21 deletions

@@ -1,21 +1,8 @@
 --- lam.pp
 
 local pp = {}
-table.unpack = table.unpack or unpack
-
-pp.luadump =
-        function (x)
-        end
-
-pp.luapp = function (x) print(pp.luadump(x)) end
-
-pp.lamdump =
-        function (x)
-        end
-
-pp.lampp = function (x) print(pp.lamdump(x)) end
-
--- The following should be at some point replaced by the preceding
+local type = require "type"
+local unpack = table.unpack or unpack
 
 function pp.dump (x, lvl)
         lvl = lvl or 0
@@ -23,7 +10,7 @@ function pp.dump (x, lvl)
         local output = ""
         --[[if getmetatable(x) and getmetatable(x).__tostring then
                 output = output .. tostring(x)
-                else]]if type(x) == "table" then
+                else]]if type.luatype(x) == "table" then
                 local subo = ""
                 for k,v in pairs(x) do
                         if v == x then
@@ -46,8 +33,5 @@ function pp.pp (x)
         print(pp.dump(x))
 end
 
-return setmetatable(pp, { __call =
-                        function(_, x)
-                                return pp.pp(x)
-                        end,
-})
+---
+return pp