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

merge variants when the | operator is used

Browse Source
This commit is contained in:
Krasimir Angelov
2024-04-09 19:23:14 +02:00
parent f637abe92e
commit 82308426c6
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/compiler/api/GF/Grammar/Parser.y
View File

@@ -400,7 +400,12 @@ ListLocDef
Exp :: { Term } Exp :: { Term }
Exp Exp
: Exp1 '|' Exp { FV [$1,$3] } : Exp1 '|' Exp { case ($1,$3) of
(FV xs,FV ys) -> FV (xs++ys )
(FV xs,y ) -> FV (xs++[y])
(x, FV ys) -> FV (x:ys)
(x, y ) -> FV [x,y]
}
| '\\' ListBind '->' Exp { mkAbs $2 $4 } | '\\' ListBind '->' Exp { mkAbs $2 $4 }
| '\\\\' ListBind '=>' Exp { mkCTable $2 $4 } | '\\\\' ListBind '=>' Exp { mkCTable $2 $4 }
| Decl '->' Exp { mkProdSimple $1 $3 } | Decl '->' Exp { mkProdSimple $1 $3 }