From fac3069a73e0fc42303769f6938e92dab156d3b0 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 21 Nov 2000 10:46:01 +0000 Subject: [PATCH] [project @ 2000-11-21 10:46:01 by simonmar] fix some cut-n-pastos --- ghc/compiler/ghci/StgInterp.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/ghci/StgInterp.lhs b/ghc/compiler/ghci/StgInterp.lhs index f0f74ba..44ddf69 100644 --- a/ghc/compiler/ghci/StgInterp.lhs +++ b/ghc/compiler/ghci/StgInterp.lhs @@ -597,8 +597,8 @@ evalP (VarP v) de -- always has pointer rep. evalP (AppIP e1 e2) de = unsafeCoerce# (evalP e1 de) (evalI e2 de) evalP (AppPP e1 e2) de = unsafeCoerce# (evalP e1 de) (evalP e2 de) -evalP (AppFP e1 e2) de = unsafeCoerce# (evalF e1 de) (evalI e2 de) -evalP (AppDP e1 e2) de = unsafeCoerce# (evalD e1 de) (evalP e2 de) +evalP (AppFP e1 e2) de = unsafeCoerce# (evalP e1 de) (evalF e2 de) +evalP (AppDP e1 e2) de = unsafeCoerce# (evalP e1 de) (evalD e2 de) -- Lambdas always return P-rep, but we need to do different things -- depending on both the argument and result representations. @@ -924,7 +924,7 @@ repOf (LitD _) = RepD repOf (Native _) = RepP -repOf (VarP _) = RepI +repOf (VarP _) = RepP repOf (VarI _) = RepI repOf (VarF _) = RepF repOf (VarD _) = RepD -- 1.7.10.4