restricted functor example

2007-06-19 19:35:04 +00:00
parent 780276850c
commit badae80454
3 changed files with 20 additions and 22 deletions
--- a/doc/tutorial/music/MusicLexFin.gf
+++ b/doc/tutorial/music/MusicLexFin.gf
@@ -1,7 +1,7 @@
  concrete MusicLexFin of MusicLex = 
     CatFin ** open ParadigmsFin in {
  lin
-    song_N = regN "kappale" ; ---- mkN
-    american_A = regA "amerikkalainen" ; ---- mkA
+    song_N = mkN "kappale" ;
+    american_A = mkA "amerikkalainen" ;
  }