1
0
forked from GitHub/gf-rgl

(Kor) Add inflection table to RCl and RS, change other funs accordingly

This commit is contained in:
Inari Listenmaa
2020-04-06 18:19:20 +02:00
parent ee3adec428
commit ac1501c942
6 changed files with 33 additions and 24 deletions
+1 -1
View File
@@ -56,7 +56,7 @@ lin
UseQCl t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! Statement} ;
-- : Temp -> Pol -> RCl -> RS ;
UseRCl t p rcl = {s = t.s ++ p.s ++ rcl.s ! t.t ! t.a ! p.p} ;
UseRCl t p rcl = {s = \\c => t.s ++ p.s ++ rcl.s ! t.t ! t.a ! p.p ! c} ;
-- AdvS : Adv -> S -> S ; -- then I will go home
AdvS = advS "" ;