From a235cc959497997e2e27e5df1be7a7a77d9049cc Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Thu, 31 Oct 2024 13:29:48 +0100 Subject: [PATCH] fixes for verbs --- src/macedonian/CatMkd.gf | 4 ++-- src/macedonian/ParadigmsMkd.gf | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/macedonian/CatMkd.gf b/src/macedonian/CatMkd.gf index 908b6aa28..743ff1ea7 100644 --- a/src/macedonian/CatMkd.gf +++ b/src/macedonian/CatMkd.gf @@ -1,4 +1,4 @@ -concrete CatMkd of Cat = open ResMkd in { +concrete CatMkd of Cat = open ResMkd, Prelude in { lincat N = Noun ; lincat N2 = Noun ** {c2 : Compl} ; @@ -16,7 +16,7 @@ lincat Voc = {s : Str} ; linref N,N2,N3 = \n -> n.s ! Indef ! Sg ; 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 { True => "се" ; False => [] diff --git a/src/macedonian/ParadigmsMkd.gf b/src/macedonian/ParadigmsMkd.gf index 6ae8d3b2c..cbd44e688 100644 --- a/src/macedonian/ParadigmsMkd.gf +++ b/src/macedonian/ParadigmsMkd.gf @@ -1566,7 +1566,7 @@ mkV = overload { mkV : Str -> Str -> Str -> Str -> V = reg4V } ; -reflV : V -> V = \v -> v ; +reflV : V -> V = \v -> v ** {isRefl=True} ; mkV2 = overload { mkV2 : V -> V2 = \v -> lin V2 v ** {c2=noPrep} ;