GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-15 15:59:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

yet another detail with (+)

Browse Source
This commit is contained in:
Krasimir Angelov
2023-03-30 12:05:44 +02:00
parent 22c45d8d34
commit 95b916339d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -192,11 +192,13 @@ eval env t@(Glue t1 t2) [] = do v1 <- eval env t1 []
let glue v =
case value2string' v False [] [] of
Const (_,ws,qs) -> case value2string' v1 True ws qs of
Const (_,ws,qs) -> Just (foldl (\v q->VC v (VApp q [])) (string2value' ws) qs)
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) [])
RunTime -> Nothing
bind True (_:_) v = VC (VApp (cPredef,cBIND) []) v
bind _ _ v = v
case (case v2 of
(VAlts d vas) -> do d <- glue d
vas <- mapM (\(v,ss) -> glue v >>= \v -> return (v,ss)) vas