GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-09-15 23:06:03 -06:00
Code Issues Packages Projects Releases Wiki Activity

add a type signature to satisfy the old type checker

Browse Source
This commit is contained in:
Krasimir Angelov
2026-08-24 13:23:30 +02:00
parent a223b3803c
commit 4c23ca2116
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/macedonian/IdiomMkd.gf
+2 -2
View File
@@ -10,7 +10,7 @@ concrete IdiomMkd of Idiom = CatMkd ** open Prelude,ResMkd,MorphoMkd in {
let vp = case p of { let vp = case p of {
Pos => mkV001 "има" ; Pos => mkV001 "има" ;
Neg => mkV001 "нема" Neg => mkV001 "нема"
} ** {compl = \\_ => np.s ! RSubj} ; } ** {compl : Agr => Str = \\_ => np.s ! RSubj} ;
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a ! Pos in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a ! Pos
} ; } ;
lin ExistNPAdv np a = { lin ExistNPAdv np a = {
@@ -18,7 +18,7 @@ concrete IdiomMkd of Idiom = CatMkd ** open Prelude,ResMkd,MorphoMkd in {
let vp = case p of { let vp = case p of {
Pos => mkV001 "има" ; Pos => mkV001 "има" ;
Neg => mkV001 "нема" Neg => mkV001 "нема"
} ** {compl = \\_ => np.s ! RSubj ++ a.s} ; } ** {compl : Agr => Str = \\_ => np.s ! RSubj ++ a.s} ;
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a2 ! Pos in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a2 ! Pos
} ; } ;
lin GenericCl vp = {s = \\t,a,p,o => vp.present ! Imperfective ! Sg lin GenericCl vp = {s = \\t,a,p,o => vp.present ! Imperfective ! Sg