diff options
Diffstat (limited to 'eval.lua')
-rw-r--r-- | eval.lua | 6 |
1 files changed, 3 insertions, 3 deletions
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 | |||
6 | local util = require("util") | 6 | local util = require("util") |
7 | local error = util.error | 7 | local error = util.error |
8 | 8 | ||
9 | m.special_forms = { | 9 | m.primitives = { |
10 | quote = | 10 | quote = |
11 | function (r, _) | 11 | function (r, _) |
12 | assert_arity(r,1,1) | 12 | assert_arity(r,1,1) |
@@ -89,8 +89,8 @@ function m.eval (x, env) | |||
89 | return x | 89 | return x |
90 | else | 90 | else |
91 | local op, args = x[1], x[2] | 91 | local op, args = x[1], x[2] |
92 | if m.special_forms[op] then | 92 | if m.primitives[op] then |
93 | return m.special_forms[op](args, env) | 93 | return m.primitives[op](args, env) |
94 | else -- procedure application | 94 | else -- procedure application |
95 | local fn = m.eval(op, env) | 95 | local fn = m.eval(op, env) |
96 | local params = {} | 96 | local params = {} |