ExtAdvS added to more languages

This commit is contained in:
aarne committed 2011-09-01 07:56:29 +00:00
1 parent ef79f47a33
commit 981bfdcd49
6 files changed
+8 -3

No files matched your search

+1
View File
@@ -61,6 +61,7 @@ concrete SentenceDut of Sentence = CatDut ** open ResDut, Prelude in {
} ;
AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
ExtAdvS a s = {s = \\o => a.s ++ "," ++ s.s ! Inv} ;
RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! Neutr ! Sg} ;