bugfixes from Codex

This commit is contained in:
Krasimir Angelov committed 2026-09-26 16:57:54 +02:00
1 parent 4bbc7c7d59
commit a557b49c95
8 files changed
+37 -22

No files matched your search

+4 -3
View File
@@ -25,9 +25,10 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
VPhrasal Dat => personalClitics agr ! Dat++vp.clitics;
VPhrasal c => vp.clitics++personalClitics agr ! c
}
in case orPol p vp.p of {
Pos => vp.ad.s ++ verb Perf ++ clitic ;
Neg => "не" ++ vp.ad.s ++ clitic ++ verb Imperf
in case <p,vp.p> of {
<Pos,Pos> => vp.ad.s ++ verb Perf ++ clitic ;
<Pos,Neg> => vp.ad.s ++ "не" ++ clitic ++ verb Imperf ;
_ => "не" ++ vp.ad.s ++ clitic ++ verb Imperf
} ++ compl ;
} ;