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

don't use record extension with PTypes

Browse Source 
the current (non-majestic) runtime doesn't support it
This commit is contained in:
Inari Listenmaa
2025-08-11 14:43:38 +02:00
parent cdc1108a36
commit a0a8d99872
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/dutch/ResDut.gf
View File

@@ -513,7 +513,7 @@ param
-- IL2018-02: a whole lot of times we only need number and person, not gender -- IL2018-02: a whole lot of times we only need number and person, not gender
-- maybe switch to PersAgr at some point and halve the number of fields -- maybe switch to PersAgr at some point and halve the number of fields
oper PersAgr : PType = {n : Number ; p : Person} ; oper PersAgr : PType = {n : Number ; p : Person} ;
oper Agr : PType = PersAgr ** {g : Gender} ; oper Agr : PType = {n : Number ; p : Person ; g : Gender} ;
oper oper
pagr : Agr -> PersAgr = \agr -> { p = agr.p ; n = agr.n } ; pagr : Agr -> PersAgr = \agr -> { p = agr.p ; n = agr.n } ;

10
src/romanian/ResRon.gf
View File

@@ -502,13 +502,13 @@ oper
-- Agreements : -- Agreements :
-- for relatives -- for relatives
AAgr : PType = {g : Gender ; n : Number} ; AAgr : PType = {g : Gender ; n : Number} ;
-- for agreement between subject and predicate -- for agreement between subject and predicate
Agr : PType = AAgr ** {p : Person} ; Agr : PType = {g : Gender ; n : Number ; p : Person} ;
-- clause building function : -- clause building function :