(Kor) Add NForm as a parameter to A2

This commit is contained in:
Inari Listenmaa
2020-04-07 19:48:05 +02:00
parent dc948a1f9d
commit 80557e34b2
4 changed files with 11 additions and 10 deletions
+2 -2
View File
@@ -147,8 +147,8 @@ oper
mkA2 : Str -> Str -> A2
= \s,p -> let adj : Adjective = mkAdj s ;
prep : Prep = mkPrep p
in lin A2 (adj ** {p2 = prep}) ;
mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (a ** {p2 = p}) ;
in lin A2 (atoa2 adj ** {p2 = prep}) ;
mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (atoa2 a ** {p2 = p}) ;
} ;
mkV = overload {