grin-compiler/grin
1
1
Fork 0
mirror of https://github.com/grin-compiler/grin.git synced 2024-09-11 15:37:54 +03:00
Code Issues Projects Releases Wiki Activity

hotfix pure reducer

Browse Source
This commit is contained in:
Csaba Hruska 2018-02-18 14:18:27 +01:00
parent 8abeb788ec
commit 7209ba166f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
grin/src/Reducer/Pure.hs
View File

@ -97,6 +97,9 @@ evalSimpleExp env = \case
True -> modify' (\(StoreMap m s) -> StoreMap (IntMap.insert l v' m) s) >> return Unit
x -> error $ printf "evalSimpleExp - Update expected location, got: %s" (prettyDebug x)
SBlock a -> evalExp env a
e@ECase{} -> evalExp env e -- FIXME: this should not be here!!! please investigate.
x -> error $ printf "invalid simple expression %s" (prettyDebug x)
evalExp :: Env -> Exp -> GrinM Val