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,9 +47,9 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
} ;
-}
conjunctCase : NPForm -> NPForm = \c -> case c of {
Ton Nom | Aton Nom => Ton Nom ;
_ => Ton Acc
conjunctCase : Case -> Case = \c -> case c of {
Nom => Nom ;
_ => Acc
} ;
auxVerb : VType -> (VF => Str) = \_ -> haber_V.s ;