GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 01:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Add bounds check (probably unnecessary)

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

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

@@ -154,7 +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 (Tuple vs, Missing _) | not (null vs) -> vs !! 0 -- cannot know how deep to unpack; this gives best results with current testsuite
(_, 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)