fix UseN and PositA

This commit is contained in:
Krasimir Angelov
2025-10-05 09:47:31 +02:00
parent 5146748f37
commit 35a650141e
6 changed files with 12 additions and 12 deletions

View File

@@ -1,4 +1,4 @@
concrete AdjectiveBel of Adjective = CatBel ** {
--lin
-- PositA a = a ;
lin
PositA a = a ;
}

View File

@@ -1,4 +1,4 @@
concrete NounBel of Noun = CatBel ** {
--lin
-- UseN n = n ;
lin
UseN n = n ;
}

View File

@@ -157,7 +157,7 @@ oper mkA : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> A =
oper Compl = {s : Str; c : Case} ;
oper noPrep : Compl = {s=""; c=Acc} ;
oper CommonNoun = {s : Str} ;
oper AdjPhrase = {s : Str} ;
oper CommonNoun = Noun ;
oper AdjPhrase = A ;
}

View File

@@ -1,4 +1,4 @@
concrete AdjectiveUkr of Adjective = CatUkr ** {
--lin
-- PositA a = a ;
lin
PositA a = a ;
}

View File

@@ -1,4 +1,4 @@
concrete NounUkr of Noun = CatUkr ** {
--lin
-- UseN n = n ;
lin
UseN n = n ;
}

View File

@@ -160,7 +160,7 @@ oper mkA : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> A =
oper Compl = {s : Str; c : Case} ;
oper noPrep : Compl = {s=""; c=Acc} ;
oper CommonNoun = {s : Str} ;
oper AdjPhrase = {s : Str} ;
oper CommonNoun = N ;
oper AdjPhrase = A ;
}