1
0
forked from GitHub/gf-rgl

restored the use of conjunctCase in romance

This commit is contained in:
aarne
2011-08-31 11:56:09 +00:00
parent fe3b40c53c
commit ef79f47a33
6 changed files with 13 additions and 16 deletions

View File

@@ -47,10 +47,7 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
_ => prepCase c ++ artDef g Sg (CPrep P_de)
} ;
conjunctCase : NPForm -> NPForm = \c -> case c of {
Aton k => Ton k ;
_ => c
} ;
conjunctCase : Case -> Case = \c -> c ;
auxVerb : VType -> (VF => Str) = \vtyp -> case vtyp of {
VHabere => avoir_V.s ;