BronzeageDan

examples/bronzeage/BronzeageDan.gf

@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete BronzeageDan of Bronzeage = CatDan, SwadeshDan ** BronzeageI with
+  (Lang = LangDan) ;
+

examples/bronzeage/BronzeageI.gf

@@ -1,7 +1,7 @@
 incomplete concrete BronzeageI of Bronzeage = open Lang in {
 
   flags 
-    startcat = Phr ; optimize = all_subs ;
+    startcat = Phr ; optimize = share_subs ;
     unlexer = text ; lexer = text ;
 
   lincat

examples/bronzeage/SwadeshDan.gf

@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete SwadeshDan of Swadesh = CatDan ** SwadeshI with
+  (Lang = LangDan) ;
+

src/GF/Compile/Compile.hs

@@ -272,10 +272,8 @@ compileSourceModule opts env@(k,gr,can) mo@(i,mi) = do
       (k',mo3r:_) <- ioeErr $ refreshModule (k,mos) mo3
 
       mo4 <- 
-----        case snd mo1b of
-----          ModMod n | isModCnc n -> 
-        putpp "  optimizing " $ ioeErr $ optimizeModule opts mos mo3r
-----        _ -> return [mo3r]
+        ---- if oElem "check_only" opts 
+          putpp "  optimizing " $ ioeErr $ optimizeModule opts mos mo3r
       return (k',mo4)
  where
    ----   prDebug mo = ioeIO $ putStrLn $ prGrammar $ MGrammar [mo] ---- debug