From 15f94710f0403c760ed4ec1a8328c89400c4d94c Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 4 Dec 2003 12:08:29 +0000
Subject: Added French for new API. Started alpha conv. Fixed bugs.

---
 src/GF/Shell/Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Shell')

diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs
index b5bd28e3c..c7b27c3ca 100644
--- a/src/GF/Shell/Commands.hs
+++ b/src/GF/Shell/Commands.hs
@@ -268,7 +268,7 @@ execECommand env c = case c of
   _                  -> changeMsg ["command not yet implemented"]
  where
    sgr  = firstStateGrammar env 
-   agrs = [sgr] ---- allActiveGrammars env
+   agrs = allStateGrammars env ---- allActiveGrammars env
    cgr  = canCEnv env
    gr   = grammarCEnv env
    der  = maybe True not $ caseYesNo (globalOptions env) noDepTypes
-- 
cgit v1.2.3