add ListS, insertObj

This commit is contained in:
Meowyam
2023-02-22 11:37:43 +08:00
parent 6f3a72aa1d
commit a741e192e2
4 changed files with 16 additions and 6 deletions

View File

@@ -31,11 +31,12 @@ concrete ConjunctionMay of Conjunction =
-- Adverb and other simple {s : Str} types.
lincat
[Adv],[AdV],[IAdv] = {s1,s2 : Str} ;
[S] = {s1,s2 : Str} ;
lin
BaseAdv, BaseAdV, BaseIAdv = twoSS ;
ConsAdv, ConsAdV, ConsIAdv = consrSS comma ;
ConjAdv, ConjAdV, ConjIAdv = conjunctDistrSS ;
BaseAdv, BaseAdV, BaseIAdv, BaseS = twoSS ;
ConsAdv, ConsAdV, ConsIAdv, ConsS = consrSS comma ;
ConjAdv, ConjAdV, ConjIAdv, ConjS = conjunctDistrSS ;
{-