example generation started

This commit is contained in:
aarne
2007-06-02 21:50:55 +00:00
parent 0958b4ddd2
commit 0a3cf11859
8 changed files with 133 additions and 25 deletions

View File

@@ -46,7 +46,7 @@ concrete NounEng of Noun = CatEng ** open ResEng, 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 ++ "th"} ; ---