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

fixes for verbs

Browse Source
This commit is contained in:
Krasimir Angelov
2024-10-31 13:29:48 +01:00
parent abf4cd4cb2
commit a235cc9594
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/macedonian/CatMkd.gf
View File

@@ -1,4 +1,4 @@
concrete CatMkd of Cat = open ResMkd in { concrete CatMkd of Cat = open ResMkd, Prelude in {
lincat N = Noun ; lincat N = Noun ;
lincat N2 = Noun ** {c2 : Compl} ; lincat N2 = Noun ** {c2 : Compl} ;
@@ -16,7 +16,7 @@ lincat Voc = {s : Str} ;
linref N,N2,N3 = \n -> n.s ! Indef ! Sg ; linref N,N2,N3 = \n -> n.s ! Indef ! Sg ;
linref V, VA, VV, VS, VQ, V2, V2S, V2Q, V3, V2A, V2V = linref V, VA, VV, VS, VQ, V2, V2S, V2Q, V3, V2A, V2V =
\v -> v.present ! Sg ! P1 ++ \v -> v.present ! Sg ! P3 ++
case v.isRefl of { case v.isRefl of {
True => "се" ; True => "се" ;
False => [] False => []

2
src/macedonian/ParadigmsMkd.gf
View File

@@ -1566,7 +1566,7 @@ mkV = overload {
mkV : Str -> Str -> Str -> Str -> V = reg4V mkV : Str -> Str -> Str -> Str -> V = reg4V
} ; } ;
reflV : V -> V = \v -> v ; reflV : V -> V = \v -> v ** {isRefl=True} ;
mkV2 = overload { mkV2 = overload {
mkV2 : V -> V2 = \v -> lin V2 v ** {c2=noPrep} ; mkV2 : V -> V2 = \v -> lin V2 v ** {c2=noPrep} ;