GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 11:38:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) optimise Quant

Browse Source
This commit is contained in:
Inari Listenmaa
2020-11-28 19:35:00 +01:00
parent 8dc5daf664
commit df4ba9eb96
3 changed files with 14 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/ResHun.gf
+2 -2
View File
@@ -203,13 +203,13 @@ oper
Quant : Type = BaseQuant ** {
s, -- form that comes before noun: "{this} car"
sp : Number => Case => Str ; -- independent form, "I like {this}" (DetNP)
qt : QuantType ;
dt : DetType ;
} ;
mkQuant : (s,sp : Str) -> Quant = \s,sp -> {
s = mkCaseNoun s ;
sp = mkCaseNoun sp ;
qt = DefQuant ;
dt = DefDet ;
caseagr = True ;
poss = harm1 [] ;
} ;