From 4c203cfd81a8434b04acbe03cb36ed8121d07864 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sun, 15 Jul 2018 10:52:03 +0200 Subject: [PATCH] formatting --- src/english/NounEng.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/english/NounEng.gf b/src/english/NounEng.gf index a32a2545..22b748c4 100644 --- a/src/english/NounEng.gf +++ b/src/english/NounEng.gf @@ -166,7 +166,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in { s = dap.s ++ ap.s ! agrgP3 dap.n Masc ; --- post-ap's ? "this larger than life (movie)" sp = \\g,_,c => case c of { NCase Gen => dap.sp ! g ! True ! NCase Nom ++ ap.s ! agrgP3 dap.n g ++ BIND ++ "'s" ; - c => dap.sp ! g ! True ! c ++ ap.s ! agrgP3 dap.n g + c => dap.sp ! g ! True ! c ++ ap.s ! agrgP3 dap.n g } ; n = dap.n ; hasNum = dap.hasNum