From 6c49847668e01d45cf56ec2b2e4fbf312957ee3d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 15 Apr 2024 22:00:37 -0500
Subject: Change names and hoist eval

read is unimplemented and load is buggy
---
 eval.lua | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'eval.lua')

diff --git a/eval.lua b/eval.lua
index 4b8f782..342624f 100644
--- a/eval.lua
+++ b/eval.lua
@@ -6,7 +6,7 @@ local assert_arity = type.assert_arity
 local util = require("util")
 local error = util.error
 
-m.special_forms = {
+m.primitives = {
 	quote =
 		function (r, _)
 			assert_arity(r,1,1)
@@ -89,8 +89,8 @@ function m.eval (x, env)
 		return x
 	else
 		local op, args = x[1], x[2]
-		if m.special_forms[op] then
-			return m.special_forms[op](args, env)
+		if m.primitives[op] then
+			return m.primitives[op](args, env)
 		else -- procedure application
 			local fn = m.eval(op, env)
 			local params = {}
-- 
cgit 1.4.1-21-gabe81