1
0
forked from GitHub/gf-core

polite imperative in Fre

This commit is contained in:
aarne
2010-06-22 10:43:29 +00:00
parent 12b1729136
commit 5b9f3ad75d

View File

@@ -123,7 +123,7 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
let
agr = Ag g n p ;
num = if_then_else Number b Pl n ;
verb = vp.s.s ! vImper n p ;
verb = vp.s.s ! vImper num p ;
neg = vp.neg ! pol ;
clpr = <vp.clit1 ++ vp.clit2, False> ; ---- TODO: True if clit
compl = vp.comp ! agr ++ vp.ext ! pol