GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

yet another improvement of mkV 2 in ParadigmsEng (but this is not a very useful paradigm)

Browse Source
This commit is contained in:
aarne
2011-10-23 18:46:33 +00:00
parent 08d038e982
commit f130bb4aac
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/english/ParadigmsEng.gf
View File

@@ -506,7 +506,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
reg2V fit fitted = reg2V fit fitted =
let fitt = Predef.tk 2 fitted ; let fitt = Predef.tk 2 fitted ;
in 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")) (mk5V fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing"))
(regV fit) ; (regV fit) ;