(Hun) Add relative clauses

This commit is contained in:
Inari Listenmaa
2020-04-17 18:23:21 +02:00
parent 8c9e8e35dd
commit 6de0fe95ec
6 changed files with 73 additions and 22 deletions
+3 -2
View File
@@ -167,8 +167,9 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude in {
} ;
-- : CN -> RS -> CN ;
-- RelCN cn rs = cn ** {
-- } ;
RelCN cn rs = cn ** {
s = \\n,c => cn.s ! n ! c ++ rs.s ! n ! c
} ;
{-
-- : CN -> Adv -> CN ;