Commit 0c5e53f0 authored by qrczak's avatar qrczak
Browse files

[project @ 2001-03-01 21:39:36 by qrczak]

Let ':t \x->x' work by putting a space before the expression.
parent 80a9e0ac
......@@ -228,7 +228,7 @@ cmRunStmt cmstate dflags expr
cmTypeOfExpr :: CmState -> DynFlags -> String -> IO (CmState, Maybe String)
cmTypeOfExpr cmstate dflags expr
= do (new_cmstate, names)
<- cmRunStmt cmstate dflags ("let __cmTypeOfExpr=" ++ expr)
<- cmRunStmt cmstate dflags ("let __cmTypeOfExpr = " ++ expr)
case names of
[name] -> do maybe_tystr <- cmTypeOfName new_cmstate name
return (new_cmstate, maybe_tystr)
......@@ -270,7 +270,7 @@ cmCompileExpr cmstate dflags expr
(new_pcs, maybe_stuff)
<- hscStmt dflags hst hit pcs icontext
("let __cmCompileExpr="++expr)
("let __cmCompileExpr = "++expr)
case maybe_stuff of
Nothing -> return (cmstate{ pcs=new_pcs }, Nothing)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment