Lexer by need.

src/GF/Compile/Optimize.hs

@@ -191,4 +191,5 @@ evalPrintname gr c ppr lin =
      C x y     -> C (oneBranch x) (oneBranch y)
      S x _     -> oneBranch x
      P x _     -> oneBranch x
+     Alts (d,_) -> oneBranch d
      _ -> t

src/GF/Compile/ShellState.hs

@@ -88,6 +88,7 @@ stateGrammarST = grammar
 stateCF        = cf
 stateMorpho    = morpho
 stateOptions   = loptions
+stateGrammarWords = map fst . tree2list . stateMorpho
 
 cncModuleIdST = stateGrammarST