msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

remove dead code

Browse Source
This commit is contained in:
Krasimir Angelov
2021-12-13 14:06:29 +01:00
committed by GitHub
parent e552ceb71d
commit 2dd8faaea7
1 changed files with 2 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/bulgarian/MorphoFunsBul.gf
View File

@@ -5,8 +5,8 @@ resource MorphoFunsBul = open
Prelude, Prelude,
CatBul, CatBul,
MorphoBul MorphoBul
in { in {
flags coding=utf8 ; flags coding=utf8 ;
oper oper
@@ -57,12 +57,6 @@ oper
dualV : VTable -> VTable -> V ; dualV : VTable -> VTable -> V ;
dualV imperf perf = { dualV imperf perf = {
s = table {Imperf=>imperf; Perf=>perf}; s = table {Imperf=>imperf; Perf=>perf};
n = let v0 = init (imperf ! (VImperfect Sg P1)) + "н"
in (mkNoun (v0+"е")
(v0+"ия")
(v0+"ия")
(v0+"е")
ANeut).s;
vtype = VNormal; vtype = VNormal;
lock_V=<> lock_V=<>
} ; } ;
@@ -72,12 +66,6 @@ oper
singleV : VTable -> V ; singleV : VTable -> V ;
singleV vtable = { singleV vtable = {
s = \\_=>vtable; s = \\_=>vtable;
n = let v0 = init (vtable ! (VImperfect Sg P1)) + "н"
in (mkNoun (v0+"е")
(v0+"ия")
(v0+"ия")
(v0+"е")
ANeut).s;
vtype = VNormal; vtype = VNormal;
lock_V=<> lock_V=<>
} ; } ;