Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix lambdalifter closure in case

Browse source
This commit is contained in:
Martin Fredin 2023-05-10 19:42:27 +02:00
parent 0aebe4a7b1
commit 30c59596c7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/LambdaLifter.hs
View file

@ -106,7 +106,7 @@ freeVarsBranch localVars (Branch pt e) =
, term = ABranch pt annae , term = ABranch pt annae
} }
where where
annae = freeVarsExp localVars e annae = freeVarsExp (localVars <|| varsInPattern) e
varsInPattern = go [] pt varsInPattern = go [] pt
where where
go acc (p, t) = case p of go acc (p, t) = case p of