@@ -87,7 +87,7 @@ let rec eval ctx (e,p) =
in
(match op with
| OpEq -> compare (=)
- | OpNotEq -> compare (<>)
+ | OpNotEq -> TBool (not (is_true (compare (=))))
| OpGt -> compare (>)
| OpGte -> compare (>=)
| OpLt -> compare (<)
@@ -0,0 +1,9 @@
+class Main {
+ static function main () {
+ #if (foo != "bar")
+ trace("NOT EQUAL");
+ #else
+ trace("EQUAL");
+ #end
+ }
+}
@@ -0,0 +1,3 @@
+--main Main
+-D foo=bar
+--interp
@@ -0,0 +1 @@
+Main.hx:6: EQUAL
@@ -0,0 +1,2 @@
+Main.hx:4: NOT EQUAL