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

comment

Browse Source
This commit is contained in:
Suzanne Dupéron 2020-06-03 12:54:40 +01:00 committed by Lesenechal Remi
parent 19f02a4b36
commit 64c6b8896d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -231,8 +231,14 @@ module Substitution = struct
let aux c = constraint_ ~c ~substs in let aux c = constraint_ ~c ~substs in
let constraints = List.map aux p.constraints in let constraints = List.map aux p.constraints in
if (Var.equal p.binder v) then ( if (Var.equal p.binder v) then (
(* The variable v is shadowed by the forall's binder, so
we don't substitute inside the body. This should be
handled in a more elegant manner once we have a proper
environment and scopes. *)
{ tsrc = "?TODO3?" ; t = P_forall { p with constraints } } { tsrc = "?TODO3?" ; t = P_forall { p with constraints } }
) else ( ) else (
(* The variable v is still visible within the forall, so
substitute also within the body *)
let body = self p.body in let body = self p.body in
{ tsrc = "?TODO4?" ; t = P_forall { p with constraints ; body } } { tsrc = "?TODO4?" ; t = P_forall { p with constraints ; body } }
) )