github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-15 01:51:39 +03:00
Code Issues Projects Releases Wiki Activity

Remove unused bind

Browse Source
This commit is contained in:
joshvera 2018-12-06 15:53:58 -05:00
parent d96882a7e4
commit 30cb4f43f6
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/Data/Syntax/Statement.hs
View File

@ -139,7 +139,7 @@ instance Evaluatable Let where
valueName <- maybeM (throwEvalError NoNameError) (declaredName letValue)
assocScope <- associatedScope (Declaration valueName)
withLexicalScopeAndFrame $ do
_ <- withLexicalScopeAndFrame $ do
declare (Declaration name) letSpan assocScope
letVal <- (eval letValue >>= Abstract.value)
slot <- lookupDeclaration (Declaration name)