diff --git a/src/maltese/NounMlt.gf b/src/maltese/NounMlt.gf index 408e7aa8..2b7a6585 100644 --- a/src/maltese/NounMlt.gf +++ b/src/maltese/NounMlt.gf @@ -310,6 +310,13 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude, Maybe in { isDefn = np.isDefn ; } ; + QuantityNP n m = { -- quessed + s = \\c => preOrPost m.isPre m.s (n.s ! NumNom) ; + a = agrP3 (numform2num n.n) Masc ; + isPron = False ; + isDefn = False ; + } ; + oper -- Overwrite the s field in an NP overwriteNPs : NounPhrase -> (NPCase => Str) -> NounPhrase = \np,tbl -> {