(morphodict) Remove more+most from args to mkA

This commit is contained in:
Inari Listenmaa
2021-06-17 20:31:10 +08:00
parent 70eee40ae8
commit 969559b45b
4 changed files with 113173 additions and 113160 deletions
+4
View File
@@ -1,3 +1,4 @@
--# -path=.:alltenses
concrete MorphoDictEng of MorphoDictEngAbs =
CatEng [N,A,V,Adv,Prep] **
open
@@ -5,3 +6,6 @@ concrete MorphoDictEng of MorphoDictEngAbs =
in
{
oper mkAMost : Str -> Str -> A = \ajar,ly -> mkA ajar ("more" ++ ajar) ("most" ++ ajar) ly ;