(Chi) Add linref for Prep

This commit is contained in:
Inari Listenmaa
2023-02-22 22:06:18 +08:00
parent 36235ca3a9
commit ea149d63f1
2 changed files with 3 additions and 0 deletions

View File

@@ -89,4 +89,5 @@ concrete CatChi of Cat = CommonX - [Tense, Temp, Ant, Adv] ** open ResChi, Prelu
linref linref
S = linS ; S = linS ;
Prep = linPrep ;
} }

View File

@@ -290,6 +290,8 @@ oper
hasDe = advTypeHasDe at ; hasDe = advTypeHasDe at ;
} ; } ;
linPrep : Preposition -> Str = \p -> p.prepPre ++ p.prepPost ;
advTypeHasDe : AdvType -> Bool = \at -> case at of { advTypeHasDe : AdvType -> Bool = \at -> case at of {
ATPoss => True ; ATPoss => True ;
_ => False _ => False