(Kor) change V*'s linref, for morpho test cases

This commit is contained in:
Inari Listenmaa
2023-05-29 19:32:09 +02:00
parent 70cbbe689d
commit e7559884e0

View File

@@ -385,7 +385,7 @@ oper
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- linrefs -- linrefs
linVerb : Verb -> Str = \v -> v.s ! linVF ; linVerb : Verb -> Str = \v -> v.s ! VF Polite Pos ;
linVP : VForm -> VerbPhrase -> Str = \vf,vp -> vp.nObj ! DeclObj ++ vp.adv ++ vp.s ! vf ; linVP : VForm -> VerbPhrase -> Str = \vf,vp -> vp.nObj ! DeclObj ++ vp.adv ++ vp.s ! vf ;
linImp : Polarity -> VerbPhrase -> Str = \pol,vp -> linImp : Polarity -> VerbPhrase -> Str = \pol,vp ->
let vf : VForm = case pol of { let vf : VForm = case pol of {