now in the command shell the primary type in the pipe is Expr not Tree. This makes the pt -compute and pt -typecheck more interesting

1 files changed, 1 insertions, 1 deletions

diff --git a/src/GFI.hs b/src/GFI.hs
index a5f5d835a..f183d043c 100644
--- a/src/GFI.hs
+++ b/src/GFI.hs
@@ -141,7 +141,7 @@ loop opts gfenv0 = do
                _ -> putStrLn "command definition not parsed" >> loopNewCPU gfenv
 
           "dt":f:ws -> do
-             case readTree (unwords ws) of
+             case readExpr (unwords ws) of
                Just exp -> loopNewCPU $ gfenv {
                  commandenv = env {
                    expmacros = Map.insert f exp (expmacros env)