summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/bronzeage/BronzeageDan.gf5
-rw-r--r--examples/bronzeage/BronzeageI.gf2
-rw-r--r--examples/bronzeage/SwadeshDan.gf5
-rw-r--r--src/GF/Compile/Compile.hs6
4 files changed, 13 insertions, 5 deletions
diff --git a/examples/bronzeage/BronzeageDan.gf b/examples/bronzeage/BronzeageDan.gf
new file mode 100644
index 000000000..a921ad03c
--- /dev/null
+++ b/examples/bronzeage/BronzeageDan.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete BronzeageDan of Bronzeage = CatDan, SwadeshDan ** BronzeageI with
+ (Lang = LangDan) ;
+
diff --git a/examples/bronzeage/BronzeageI.gf b/examples/bronzeage/BronzeageI.gf
index dbaac3ce9..f0a484c41 100644
--- a/examples/bronzeage/BronzeageI.gf
+++ b/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
diff --git a/examples/bronzeage/SwadeshDan.gf b/examples/bronzeage/SwadeshDan.gf
new file mode 100644
index 000000000..e667609f3
--- /dev/null
+++ b/examples/bronzeage/SwadeshDan.gf
@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+concrete SwadeshDan of Swadesh = CatDan ** SwadeshI with
+ (Lang = LangDan) ;
+
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index 0dba7a9ec..c79dd2b4d 100644
--- a/src/GF/Compile/Compile.hs
+++ b/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