mkA revised

This commit is contained in:
ra.monique
2009-03-04 11:12:06 +00:00
parent 3d2d48c2ef
commit 4a7ad5ca9f

View File

@@ -222,6 +222,12 @@ mkNR s = mkIn (mkNomNeut s) ** {lock_N = <>} ;
--------------------------------------------------------------------
mkA = overload {
mkA : Str -> Str -> Str -> Str -> Str -> A = mk5A ;--worst case -- all 4 forms are needed + form for adverb
mkA : Str -> Str -> Str -> Str -> A = mk4A; -- 4 forms are needed
mkA : Str -> A = regA; -- regular adjectives
};
mk4A : Str -> Str -> Str -> Str -> A;
mk4A a b c d =
let adj = mkAdjSpec a b c d in