From f30fa0b4d15ec256f55e2c453fc3d7c42de9b3bf Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 19 Jun 2007 18:09:49 +0000
Subject: overload res doc examples, part 2

---
 doc/tutorial/music/MusicEng.gf | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 doc/tutorial/music/MusicEng.gf

(limited to 'doc/tutorial/music/MusicEng.gf')

diff --git a/doc/tutorial/music/MusicEng.gf b/doc/tutorial/music/MusicEng.gf
new file mode 100644
index 000000000..c85915254
--- /dev/null
+++ b/doc/tutorial/music/MusicEng.gf
@@ -0,0 +1,7 @@
+--# -path=.:present:api:prelude
+
+  concrete MusicEng of Music = MusicEng0 - [PropKind] ** 
+      open SyntaxEng in {
+  lin
+    PropKind k p = mkCN k (mkRS (mkRCl which_RP (mkVP p))) ;
+  }
-- 
cgit v1.2.3