diff options
| author | aarne <unknown> | 2005-10-06 09:02:33 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-10-06 09:02:33 +0000 |
| commit | c2aeb9ae16c344c354194ec2efac773bbb7ce5d1 (patch) | |
| tree | dbb71f76a6130352025a799e08fedc14bd94af14 /src/GF/Shell/Commands.hs | |
| parent | a78acc722ec26be2be20f22f74e98329d57008b1 (diff) | |
macro commands
Diffstat (limited to 'src/GF/Shell/Commands.hs')
| -rw-r--r-- | src/GF/Shell/Commands.hs | 9 |
1 files changed, 5 insertions, 4 deletions
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 |