typer: bugfix: use "String.equal", not "="

2019-12-06 18:31:00 +01:00 · 2019-12-06 18:31:00 +01:00 · 30dac09494
commit 30dac09494
parent 77fdb739b6
1 changed files with 1 additions and 1 deletions
--- a/src/stages/typesystem/misc.ml
+++ b/src/stages/typesystem/misc.ml
@ -274,7 +274,7 @@ module Substitution = struct
      let self tv = type_value ~tv ~substs in
      let (v, expr) = substs in
      match tv with
-      | P_variable v' when v' = v -> expr
+      | P_variable v' when String.equal v' v -> expr
      | P_variable _ -> tv
      | P_constant (x , lst) -> (
          let lst' = List.map self lst in