msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix: [] + "ser" == "ser"

Browse Source
This commit is contained in:
Krasimir Angelov
2023-04-06 11:36:21 +02:00
parent 4d83be454f
commit a8630ddcd2
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/compiler/GF/Compile/Compute/Concrete.hs
View File

@@ -191,10 +191,13 @@ eval env t@(Glue t1 t2) [] = do v1 <- eval env t1 []
v2 <- eval env t2 [] v2 <- eval env t2 []
let glue v = let glue v =
case value2string' v False [] [] of case value2string' v False [] [] of
Const (_,ws,qs) -> case value2string' v1 True ws qs of Const (b,ws,qs) -> let b' = case v1 of
Const (b,ws,qs) -> Just (bind b ws (foldl (\v q->VC v (VApp q [])) (string2value' ws) qs)) VEmpty -> b
NonExist -> Just (VApp (cPredef,cNonExist) []) _ -> True
RunTime -> Nothing in case value2string' v1 b' ws qs of
Const (b,ws,qs) -> Just (bind b ws (foldl (\v q->VC v (VApp q [])) (string2value' ws) qs))
NonExist -> Just (VApp (cPredef,cNonExist) [])
RunTime -> Nothing
NonExist -> Just (VApp (cPredef,cNonExist) []) NonExist -> Just (VApp (cPredef,cNonExist) [])
RunTime -> Nothing RunTime -> Nothing
bind True (_:_) v = VC (VApp (cPredef,cBIND) []) v bind True (_:_) v = VC (VApp (cPredef,cBIND) []) v