Add eqv?, eq?

2 files changed, 16 insertions, 0 deletions

@@ -18,7 +18,22 @@ local function fold (kons, knil, r)
 end
 
 m.env = { -- all functions here take R, which is the list of arguments
+        ------- equivalence
+        ["eqv?"] =
+                function (r)
+                        assert_arity(r, 2, 2)
+                        return r[1] == r[2][1]
+                end,
+        ["eq?"] =
+                function (r)
+                        assert_arity(r, 2, 2)
+                        -- from how i understand the Scheme spec, it's okay to
+                        -- make `eqv?' and `eq?' the same.
+                        return r[1] == r[2][1]
+                end,
+        -- equal? can be done in-library
         ------- numbers
+        -- todo: assert all of these are numbers
         ["number?"] =
                 function (r)
                         assert_arity(r, 1, 1)
@@ -3,6 +3,7 @@
 local m = {}
 local core = require "core"
 local type = require "type"
+local assert_arity = require("util").assert_arity
 
 function m.environ (inner, outer)
         local mt = {