From a25ee154e760a424ef4aef46a6e3d6fdf1079cf1 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 15 Sep 2004 14:36:27 +0000
Subject: introducing multiple inheritance

---
 grammars/multiple/SystemMathEng.gf | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 grammars/multiple/SystemMathEng.gf

(limited to 'grammars/multiple/SystemMathEng.gf')

diff --git a/grammars/multiple/SystemMathEng.gf b/grammars/multiple/SystemMathEng.gf
new file mode 100644
index 000000000..11aca7952
--- /dev/null
+++ b/grammars/multiple/SystemMathEng.gf
@@ -0,0 +1,6 @@
+concrete SystemMathEng of SystemMath = SystemEng, MathEng ** open
+  Prelude in {
+  lin
+    RSum x y d = 
+      ss (["the sum of"] ++ x.s ++ "and" ++ y.s ++ "is" ++ d.s) ;
+} ;
-- 
cgit v1.2.3