introducing multiple inheritance

This commit is contained in:
aarne
2004-09-15 14:36:27 +00:00
parent 9bc8ffe4d1
commit e6fd325d07
44 changed files with 214 additions and 74 deletions

View File

@@ -0,0 +1,6 @@
concrete UserCityEng of UserCity = UserEng, CityEng ** open Prelude in
{
lin
QDistance x y = ss (["what is the distance from"] ++ x.s ++ "to" ++ y.s) ;
}