1 files changed, 1 insertions, 1 deletions
diff --git a/eval.lua b/eval.lua
index 342624f..287509d 100644
--- a/eval.lua
+++ b/eval.lua

@@ -69,7 +69,7 @@ m.primitives = {
                end,
        ["if"] =
                function (r, e)
-                        assert_arity(r,3,3)
+                        assert_arity(r,2,3)
                        local test, conseq, alt = r[1], r[2][1], r[2][2][1]
                        if m.eval(test, e)
                        then return m.eval(conseq, e)

diff --git a/eval.lua b/eval.lua index 342624f..287509d 100644 --- a/eval.lua +++ b/eval.lua
@@ -69,7 +69,7 @@ m.primitives = {
69	end,	69	end,
70	["if"] =	70	["if"] =
71	function (r, e)	71	function (r, e)
72	assert_arity(r,3,3)	72	assert_arity(r,2,3)
73	local test, conseq, alt = r[1], r[2][1], r[2][2][1]	73	local test, conseq, alt = r[1], r[2][1], r[2][2][1]
74	if m.eval(test, e)	74	if m.eval(test, e)
75	then return m.eval(conseq, e)	75	then return m.eval(conseq, e)