From f130bb4aac37d3172bd76a62497397bc491c7edc Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 23 Oct 2011 18:46:33 +0000 Subject: [PATCH] yet another improvement of mkV 2 in ParadigmsEng (but this is not a very useful paradigm) --- lib/src/english/ParadigmsEng.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/src/english/ParadigmsEng.gf b/lib/src/english/ParadigmsEng.gf index ec2cfd030..07ebd7a91 100644 --- a/lib/src/english/ParadigmsEng.gf +++ b/lib/src/english/ParadigmsEng.gf @@ -506,7 +506,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --% reg2V fit fitted = let fitt = Predef.tk 2 fitted ; in - if_then_else V (pbool2bool (Predef.eqStr (init fitt) fit)) + if_then_else V (pbool2bool (Predef.eqStr (last fit) (last fitt))) (mk5V fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing")) (regV fit) ;