1
0
forked from GitHub/gf-rgl

remove dead code

This commit is contained in:
Krasimir Angelov
2021-12-13 14:06:29 +01:00
committed by Meowyam
parent be36e65343
commit c81edf3fbb

View File

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