restored the use of conjunctCase in romance

This commit is contained in:
aarne
2011-08-31 11:56:09 +00:00
parent 38db834a65
commit 40022d7af9
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 ;