moved PGF.ToApi to GF.Compile.ToAPI

examples/phrasebook/Compile.hs

@@ -36,7 +36,9 @@ main = do
     _ -> return ()
 
 compileOne modu = do
-  let comm = "gf -make -s -optimize-pgf -name=" ++ modu ++ " " ++ modu ++ ".gf"
+  let comm = "gf -make -s -optimize-pgf -name=" ++ 
+             modu ++ " " ++ modu ++ ".gf" ++
+             " +RTS -K32M"
   putStrLn comm
   system comm
 

examples/phrasebook/SentencesFin.gf

@@ -8,6 +8,8 @@ concrete SentencesFin of Sentences = NumeralFin ** SentencesI -
   (Lexicon = LexiconFin) ** 
     open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin), Prelude in {
 
+  flags optimize = noexpand ;
+
   lin 
     Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- tämä pizza on herkullista
     IsMass mass prop = mkCl (mkNP a_Det mass) (V.UseComp (CompPartAP prop)) ; -- pizza on herkullista

examples/phrasebook/WordsFin.gf

@@ -5,6 +5,8 @@ concrete WordsFin of Words = SentencesFin **
     SyntaxFin, ParadigmsFin, (L = LexiconFin), 
     Prelude, (E = ExtraFin) in {
 
+  flags optimize = noexpand ;
+
   lin
 
 -- kinds