From 7d01f6720f04db6c1ee0b3f8f25eae37477c9be2 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 3 Jul 2018 18:47:25 +0200
Subject: [PATCH] improve the API for prepositions

---
 src/bulgarian/MorphoFunsBul.gf | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/bulgarian/MorphoFunsBul.gf b/src/bulgarian/MorphoFunsBul.gf
index ed1e5000b..1f99a14fa 100644
--- a/src/bulgarian/MorphoFunsBul.gf
+++ b/src/bulgarian/MorphoFunsBul.gf
@@ -265,9 +265,15 @@ oper
 -- A preposition as used for rection in the lexicon, as well as to
 -- build $PP$s in the resource API, just requires a string.
 
-  mkPrep : Str -> Case -> Prep = \p,c -> {s = p; c = c; lock_Prep = <>} ;
-  noPrep : Prep = mkPrep [] Acc ;
-  
+  mkPrep = overload {
+    mkPrep : Str -> Prep = 
+      \p   -> {s = p; c = Acc; lock_Prep = <>} ;
+    mkPrep : Str -> Case -> Prep = 
+      \p,c -> {s = p; c = c;   lock_Prep = <>}
+  } ;
+
+  noPrep   : Prep = mkPrep [] Acc ;
+  dat_Prep : Prep = mkPrep [] Dat ;
 
 --2 Proper Names
 --