From 70c9f7b365b07044c07837a04223a11dfa3b7140 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 17 Nov 2003 15:17:53 +0000
Subject: Lexer by need.

---
 src/GF/Compile/ShellState.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Compile/ShellState.hs')

diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs
index 4e84bd248..17ea2cc9a 100644
--- a/src/GF/Compile/ShellState.hs
+++ b/src/GF/Compile/ShellState.hs
@@ -88,6 +88,7 @@ stateGrammarST = grammar
 stateCF        = cf
 stateMorpho    = morpho
 stateOptions   = loptions
+stateGrammarWords = map fst . tree2list . stateMorpho
 
 cncModuleIdST = stateGrammarST
 
-- 
cgit v1.2.3