mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-31 02:38:55 -06:00
some fixes in pattern matching in Compute
This commit is contained in:
@@ -11,7 +11,7 @@
|
|||||||
resource MorphoFre = CommonRomance, ResFre **
|
resource MorphoFre = CommonRomance, ResFre **
|
||||||
open PhonoFre, Prelude, Predef in {
|
open PhonoFre, Prelude, Predef in {
|
||||||
|
|
||||||
flags optimize=noexpand ;
|
flags optimize=all ;
|
||||||
|
|
||||||
--2 Front vowels
|
--2 Front vowels
|
||||||
--
|
--
|
||||||
|
|||||||
@@ -58,8 +58,8 @@ oper
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
conjGender : Gender -> Gender -> Gender = \m,n ->
|
conjGender : Gender -> Gender -> Gender = \m,n ->
|
||||||
case <m,n> of {
|
case m of {
|
||||||
<Fem,Fem> => Fem ;
|
Fem => n ;
|
||||||
_ => Masc
|
_ => Masc
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user