github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00
Code Issues Projects Releases Wiki Activity

use withLexicalScopeAndFrame in Statements

Browse Source
This commit is contained in:
joshvera 2018-11-05 16:11:16 -05:00
parent f2754368cb
commit 1020f6dc61
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Syntax/Statement.hs
View File

@ -32,10 +32,8 @@ instance Show1 Statements where liftShowsPrec = genericLiftShowsPrec
instance ToJSON1 Statements
instance Evaluatable Statements where
eval eval (Statements xs) = do
currentScope' <- currentScope -- TODO: currentScope should return a Maybe
scope <- newScope (Map.singleton Lexical [ currentScope' ])
withScope scope $ maybe (rvalBox unit) (runApp . foldMap1 (App . eval)) (nonEmpty xs)
eval eval (Statements xs) =
withLexicalScopeAndFrame $ maybe (rvalBox unit) (runApp . foldMap1 (App . eval)) (nonEmpty xs)
instance Tokenize Statements where
tokenize = imperative