peb's forest patch

This commit is contained in:
aarne
2007-07-08 12:43:07 +00:00
parent e014dfcfb0
commit 8f0501d81b

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) { NumInt n = {s = n.s; n = table (Predef.Ints 1 * Predef.Ints 9) {
<0,1> => Sg ; <0,1> => Sg ;
_ => Pl _ => Pl
} ! <n.size,n.last> } ! <1,2> ---- parser bug (AR 2/6/2007) <n.size,n.last>
} ; } ;
OrdInt n = {s = \\_ => n.s ++ "."} ; OrdInt n = {s = \\_ => n.s ++ "."} ;