From e5c8636a5f608af83d918e62533306cf7ddc7118 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sat, 23 May 2009 21:33:52 +0000 Subject: 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 --- src/GFI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GFI.hs') 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) -- cgit v1.2.3