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

Pass all missing test cases, including Phrasebook, except PhrasebookSnd

Browse Source
This commit is contained in:
John J. Camilleri
2021-08-10 11:46:28 +02:00
parent b96fa7e08a
commit 48dba4ade5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/runtime/haskell/LPGF.hs
View File

@@ -154,6 +154,7 @@ eval cxt t = case t of
Projection t u -> Projection t u ->
case (eval cxt t, eval cxt u) of case (eval cxt t, eval cxt u) of
(Missing f, _) -> Missing f (Missing f, _) -> Missing f
(Tuple vs, Missing _) -> vs !! 0 -- imitate PGF behaviour
(_, Missing f) -> Missing f (_, Missing f) -> Missing f
(Tuple vs, Ix i) -> vs !! (i-1) (Tuple vs, Ix i) -> vs !! (i-1)
(t', tv@(Tuple _)) -> eval cxt $ foldl Projection t' (flattenTuple tv) (t', tv@(Tuple _)) -> eval cxt $ foldl Projection t' (flattenTuple tv)