This commit is contained in:
Krasimir Angelov
2024-12-07 20:23:49 +01:00
parent 02456811ee
commit bcf5db743f

View File

@@ -1,9 +1,9 @@
concrete AdjectiveSqi of Adjective = CatSqi ** open ResSqi in {
concrete AdjectiveSqi of Adjective = CatSqi ** open ResSqi, Prelude in {
lin
PositA a = {
s = \\spec,c,g,n => case a.clit of {
True => link_clitic ! Indef ! c ! g ! n ++ a.s ! c ! g ! n ;
True => link_clitic ! spec ! c ! g ! n ++ a.s ! c ! g ! n ;
False => a.s ! c ! g ! n
}
} ;