fixes for verbs

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
+2 -2
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 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 => []