working towards tram in 4 langs

This commit is contained in:
aarne
2006-01-20 23:03:50 +00:00
parent 6f89da4591
commit 29a4ef3172
25 changed files with 142 additions and 93 deletions

View File

@@ -14,11 +14,7 @@ incomplete concrete NounRomance of Noun =
c = Clit0
} ;
UsePN pn = {
s = \\c => prepCase (npform2case c) ++ pn.s ;
a = agrP3 pn.g Sg ;
c = Clit0
} ;
UsePN = pn2np ;
UsePron p = p ;