aboutsummaryrefslogtreecommitdiff
path: root/core.nom
diff options
context:
space:
mode:
Diffstat (limited to 'core.nom')
-rw-r--r--core.nom8
1 files changed, 3 insertions, 5 deletions
diff --git a/core.nom b/core.nom
index 3b0cf32..830e312 100644
--- a/core.nom
+++ b/core.nom
@@ -1,4 +1,3 @@
-(# Global import #)
lua block ".."
|utils = require('utils')
@@ -107,12 +106,11 @@ macro "%a or %b or %c or %d":
macro "%a mod %b": concat ["(",%a as lua expr," mod ",%b as lua expr,")"]
macro "- %a": concat ["-(",%a as lua expr,")"]
macro "not %a": concat ["not (",%a as lua expr,")"]
-macro "# %a": concat ["#(",%a as lua expr,")"]
-(# This does equivalence checking instead of identity checking. #)
rule "%a == %b":
- lua expr "utils.equivalent(vars.a, vars.b)"
-macro "%a != %b": concat ["not (",%a as lua expr," == ",%b as lua expr,")"]
+ lua expr "((vars.a == vars.b) or utils.equivalent(vars.a, vars.b))"
+rule "%a != %b":
+ lua expr "((vars.a ~= vars.b) or not utils.equivalent(vars.a, vars.b))"
rule "say %str":
lua block ["print(utils.repr(", %str, "))"]