github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Use gensym in the definition of lambda.

Browse Source 
Co-Authored-By: Patrick Thomson <patrick.william.thomson@gmail.com>
This commit is contained in:
Rob Rix 2018-07-09 13:47:22 -04:00
parent 2f8f4e367e
commit 7e450aa14b
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/Control/Abstract/Primitive.hs
View File

@ -61,7 +61,7 @@ lambda :: (AbstractFunction address value effects, Member Fresh effects)
=> (Name -> Evaluator address value effects address)
-> Evaluator address value effects value
lambda body = do
var <- nameI <$> fresh
var <- gensym
closure [var] lowerBound (body var)
defineBuiltins :: ( AbstractValue address value effects