diff --git a/src/api/TryEng.gf b/src/api/TryEng.gf index a5055ca90..f06fed9d0 100644 --- a/src/api/TryEng.gf +++ b/src/api/TryEng.gf @@ -1,6 +1,6 @@ --# -path=.:../english:../common:../abstract:../prelude -resource TryEng = SyntaxEng-[mkAdN], LexiconEng, ParadigmsEng - [mkAdv,mkAdN,mkOrd,mkQuant] ** +resource TryEng = SyntaxEng-[mkAdN], LexiconEng, ParadigmsEng - [mkAdv,mkAdN,mkOrd,mkQuant,mkVoc] ** open (P = ParadigmsEng) in { oper diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf index 69fdd7369..bbbeb5533 100644 --- a/src/english/ParadigmsEng.gf +++ b/src/english/ParadigmsEng.gf @@ -359,6 +359,8 @@ oper mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --% mkInterj : Str -> Interj = \s -> lin Interj (ss s) ; +mkVoc : Str -> Voc ; -- Any other vocative expression not coming from a NP or a preconstructed Voc +mkVoc s = lin Voc (ss s) ; --. --2 Definitions of paradigms