Merge pull request #76 from madjar/fix-recset

Fix recset evaluation logic
This commit is contained in:
John Wiegley 2018-01-27 00:40:08 -08:00 committed by GitHub
commit a0264c1f0c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -148,7 +148,7 @@ evalExpr = cata phi
rec
mergedEnv <- pure $ Fix $ NVSet $ evaledBinds `Map.union` env'
evaledBinds <- evalBinds True mergedEnv binds
pure mergedEnv
pure . Fix . NVSet $ evaledBinds
_ -> error "invalid evaluation environment"
phi (NLet binds e) = \env -> case env of