unforgetting new env after i command

This commit is contained in:
aarne
2008-05-30 17:13:38 +00:00
parent 3a20b4883d
commit 83dc6de3a8

View File

@@ -47,7 +47,7 @@ loop opts gfenv0 = do
Ok (opts',files) -> importInEnv gfenv (addOptions opts opts') files Ok (opts',files) -> importInEnv gfenv (addOptions opts opts') files
Bad err -> do putStrLn $ "Command parse error: " ++ err Bad err -> do putStrLn $ "Command parse error: " ++ err
return gfenv return gfenv
loopNewCPU gfenv loopNewCPU gfenv'
-- other special commands, working on GFEnv -- other special commands, working on GFEnv
"e":_ -> loopNewCPU $ gfenv {commandenv=env{multigrammar=emptyPGF}} "e":_ -> loopNewCPU $ gfenv {commandenv=env{multigrammar=emptyPGF}}