1
0
forked from GitHub/gf-rgl

polite imperative in Fre

This commit is contained in:
aarne
2010-06-22 10:43:29 +00:00
parent db5b3b8a68
commit 8b2bf533a4

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