From 18533659420eb2a92ae367bafb2147c2e65e67a1 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 2 Aug 2021 09:48:45 +0800
Subject: [PATCH] (Eng) Add mkVoc in Paradigms, exclude from TryEng

---
 src/api/TryEng.gf           | 2 +-
 src/english/ParadigmsEng.gf | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/api/TryEng.gf b/src/api/TryEng.gf
index a5055ca9..f06fed9d 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 69fdd736..bbbeb553 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