From c2aeb9ae16c344c354194ec2efac773bbb7ce5d1 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 6 Oct 2005 09:02:33 +0000
Subject: macro commands

---
 src/GF/Shell/Commands.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src/GF/Shell/Commands.hs')

diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs
index b1160d151..8699c2fe7 100644
--- a/src/GF/Shell/Commands.hs
+++ b/src/GF/Shell/Commands.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/08/17 15:13:55 $ 
+-- > CVS $Date: 2005/10/06 10:02:33 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.41 $
+-- > CVS $Revision: 1.42 $
 --
 -- temporary hacks for GF 2.0
 --
@@ -162,8 +162,9 @@ execCommand env c s = case c of
     return (startEditEnv emptyShellState, initSState)
 
   CCEnvGFShell command -> do
-    let cs = PShell.pCommandLines command
-    (msg,(env',_)) <- Shell.execLines False cs (Shell.initHState env)
+    let hs = Shell.initHState env
+    let cs = PShell.pCommandLines hs command
+    (msg,(env',_)) <- Shell.execLines False cs hs
     return (env', changeMsg msg s) ----
 
   CCEnvOpenTerm file -> do
-- 
cgit v1.2.3