balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Suzanne Dupéron 2019-12-06 18:31:00 +01:00 committed by Suzanne Dupéron
parent 77fdb739b6
commit 30dac09494
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/stages/typesystem/misc.ml
View File

@ -274,7 +274,7 @@ module Substitution = struct
let self tv = type_value ~tv ~substs in let self tv = type_value ~tv ~substs in
let (v, expr) = substs in let (v, expr) = substs in
match tv with match tv with
| P_variable v' when v' = v -> expr | P_variable v' when String.equal v' v -> expr
| P_variable _ -> tv | P_variable _ -> tv
| P_constant (x , lst) -> ( | P_constant (x , lst) -> (
let lst' = List.map self lst in let lst' = List.map self lst in