compatibility module for Finnish

This commit is contained in:
aarne
2008-09-09 16:30:13 +00:00
parent 3da1d10eb9
commit e228fc897a

View File

@@ -0,0 +1,11 @@
--# -path=.:../abstract:../common
concrete CompatibilityFin of Compatibility = CatFin ** open Prelude, ResFin in {
-- from Noun 19/4/2008
lin
NumInt n = {s = \\_,_ => n.s ; isNum = True ; n = Pl} ;
OrdInt n = {s = \\_,_ => n.s ++ "."} ;
}