From 1c2a240b2cc10ec4033371067ff28ad04db9ab7b Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sun, 7 Feb 2010 19:23:26 +0000
Subject: [PATCH] command cc now works even without loaded grammar. useful for
 testing closed expressions

---
 src/compiler/GFI.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs
index 2b1d125d9..d53be2195 100644
--- a/src/compiler/GFI.hs
+++ b/src/compiler/GFI.hs
@@ -17,7 +17,7 @@ import GF.Infra.Dependencies
 import GF.Infra.CheckM
 import GF.Infra.UseIO
 import GF.Infra.Option
-import GF.Infra.Modules (greatestResource)
+import GF.Infra.Modules (greatestResource, modules, emptyModInfo)
 import GF.System.Readline
 
 import GF.Text.Coding
@@ -254,7 +254,7 @@ emptyGFEnv = do
 #else
   let coding = UTF_8
 #endif
-  return $ GFEnv emptySourceGrammar (mkCommandEnv coding emptyPGF) [] 0 coding
+  return $ GFEnv emptySourceGrammar{modules=[(identW,emptyModInfo)]} (mkCommandEnv coding emptyPGF) [] 0 coding
 
 encode = encodeUnicode . coding 
 decode = decodeUnicode . coding