peb's forest patch

This commit is contained in:
aarne
2007-07-08 12:43:07 +00:00
parent ff8758c8db
commit 751a841191
3 changed files with 20 additions and 4 deletions

View File

@@ -72,7 +72,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
NumInt n = {s = n.s; n = table (Predef.Ints 1 * Predef.Ints 9) {
<0,1> => Sg ;
_ => Pl
} ! <n.size,n.last>
} ! <1,2> ---- parser bug (AR 2/6/2007) <n.size,n.last>
} ;
OrdInt n = {s = \\_ => n.s ++ "."} ;