From 34d94104686fdb6e3bc2573315291770cab37cf3 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 22 Feb 2024 00:29:23 -0600
Subject: Change types to lowercase; add todos

---
 types.lua | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'types.lua')

diff --git a/types.lua b/types.lua
index dd105cf..d4c8d14 100644
--- a/types.lua
+++ b/types.lua
@@ -6,21 +6,22 @@ types.luatype = type
 
 function types.lamtype (x)
 	if types.luatype(x) == "string" then
-		return "Symbol"
+		return "symbol"
 	elseif types.luatype(x) == "number" then
-		return "Number"
+		return "number"
 	elseif getmetatable(x) and getmetatable(x).__type then
 		return getmetatable(x).__type
 	elseif types.luatype(x) == "table" then
-		return "List"
+		return "list"
 	else
 		return types.luatype(x)
 	end
 end
 
-types["number?"] = function (x) return types.lamtype(x) == "Number" end
-types["symbol?"] = function (x) return types.lamtype(x) == "Symbol" end
-types["list?"] = function (x) return types.lamtype(x) == "List" end
+types["number?"] = function (x) return types.lamtype(x) == "number" end
+types["symbol?"] = function (x) return types.lamtype(x) == "symbol" end
+types["list?"] = function (x) return types.lamtype(x) == "list" end
+types["procedure?"] = function (x) return types.lamtype(x) == "procedure" end
 types["null?"] = function (x) return x == {} end
 
 ---
-- 
cgit 1.4.1-21-gabe81