introducing multiple inheritance

2004-09-15 14:36:27 +00:00
1 parent 7697b222d0
commit a25ee154e7
@@ -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) ;
+  }
+