:art: use ?= in match

diff --git a/src/emit/emit.c b/src/emit/emit.c
index 6c649b5ee08ea9d9e797194a3fec34d0424b3f54..719e25583e3b27c29feeb8bd6a4479d8460a2b8b 100644 (file)
--- a/src/emit/emit.c
+++ b/src/emit/emit.c
@@ -2494,14 +2494,14 @@ ANN static Symbol case_op(const Emitter emit, const Exp base, const Exp e,
       }
     }
   }
-  if (!n) return insert_symbol("==");
+  if (!n) return insert_symbol("?=");
   regpush(emit, SZ_INT);
   CHECK_BO(emit_exp(emit, e));
-  const Exp_Binary bin  = {.lhs = base, .rhs = e, .op = insert_symbol("==")};
+  const Exp_Binary bin  = {.lhs = base, .rhs = e, .op = insert_symbol("?=")};
   struct Exp_      ebin = {
       .d = {.exp_binary = bin},
   };
-  struct Op_Import opi = {.op   = insert_symbol("=="),
+  struct Op_Import opi = {.op   = insert_symbol("?="),
                           .lhs  = base->type,
                           .rhs  = e->type,
                           .data = (uintptr_t)&ebin.d.exp_binary,

diff --git a/src/parse/check.c b/src/parse/check.c
index 03136e5797cbf479c03bdc7b25f65eb4268ebdcf..e6fbe2847aca510c68cc6307d1d87ad4e53c7db7 100644 (file)
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -1337,7 +1337,7 @@ ANN static Symbol case_op(const Env env, const Type base, const Exp e) {
       }
     }
   }
-  return insert_symbol("==");
+  return insert_symbol("?=");
 }
 
 ANN static m_bool match_case_exp(const Env env, Exp e) {