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

Grammar and languages to run in testsuite can be specified by command line options, see README

Browse Source
This commit is contained in:
John J. Camilleri
2021-02-19 11:14:55 +01:00
parent 505c12c528
commit 9f3f4139b1
3 changed files with 35 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -188,7 +188,7 @@ eval cxt t = case t of
case (eval cxt t, eval cxt u) of
(LFTuple vs, LFInt i) -> vs !! (i-1)
(tp@(LFTuple _), LFTuple is) | all isInt is -> foldl (\(LFTuple vs) (LFInt i) -> vs !! (i-1)) tp is
(t',u') -> error $ printf "Incompatible projection:\n%s\n%s" (show t) (show u)
(t',u') -> error $ printf "Incompatible projection:\n- %s ~> %s\n- %s ~> %s" (show t) (show t') (show u) (show u')
LFArgument i -> cxt !! (i-1)
_ -> t