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

(Ara) Remove unnecessary field from VV

Browse Source
This commit is contained in:
Inari Listenmaa
2018-09-26 14:59:47 +02:00
parent 8174fd55a8
commit 6e433fdb48
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/arabic/CatAra.gf
View File

@@ -82,9 +82,8 @@ concrete CatAra of Cat = CommonX - [Utt] ** open ResAra, Prelude, ParamX in {
V, VS, VQ, VA = ResAra.Verb ; -- = {s : VForm => Str} ; V, VS, VQ, VA = ResAra.Verb ; -- = {s : VForm => Str} ;
V2, V2A = ResAra.Verb ** {c2 : Str} ; V2, V2A = ResAra.Verb ** {c2 : Str} ;
V2V, V2S, V2Q = ResAra.Verb ** {c2 : Str} ; --- AR VV, V2V, V2S, V2Q = ResAra.Verb ** {c2 : Str} ; --- AR
V3 = ResAra.Verb ** {c2, c3 : Str} ; V3 = ResAra.Verb ** {c2, c3 : Str} ;
VV = ResAra.Verb ** {c2 : Str ; isAux : Bool} ; --- IL
A = ResAra.Adj ; A = ResAra.Adj ;
A2 = ResAra.Adj ** {c2 : Str} ; A2 = ResAra.Adj ** {c2 : Str} ;

2
src/arabic/ParadigmsAra.gf
View File

@@ -519,7 +519,7 @@ resource ParadigmsAra = open
mkVS v = v ** {lock_VS = <>} ; mkVS v = v ** {lock_VS = <>} ;
mkVQ v = v ** {lock_VQ = <>} ; mkVQ v = v ** {lock_VQ = <>} ;
regVV : V -> VV = \v -> lin VV v ** {isAux = False; c2 = []} ; regVV : V -> VV = \v -> lin VV v ** {c2 = []} ;
c2VV : V -> Str -> VV = \v,prep -> regVV v ** {c2 = prep} ; c2VV : V -> Str -> VV = \v,prep -> regVV v ** {c2 = prep} ;
V0 : Type = V ; V0 : Type = V ;