From d637d3565b5c1eff9e9a5cf9451db94f73ae7774 Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 19 Jan 2001 12:23:16 +0000 Subject: [PATCH] [project @ 2001-01-19 12:23:16 by simonmar] ignore Notes when compiling tail calls. --- ghc/compiler/ghci/ByteCodeGen.lhs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ghc/compiler/ghci/ByteCodeGen.lhs b/ghc/compiler/ghci/ByteCodeGen.lhs index 7afcb10..12c0463 100644 --- a/ghc/compiler/ghci/ByteCodeGen.lhs +++ b/ghc/compiler/ghci/ByteCodeGen.lhs @@ -423,10 +423,11 @@ schemeT d s p app (args_r_to_l_raw, fn) = chomp app chomp expr = case snd expr of - AnnVar v -> ([], v) - AnnApp f a -> case chomp f of (az, f) -> (snd a:az, f) - other -> pprPanic "schemeT" - (ppr (deAnnotate (panic "schemeT.chomp", other))) + AnnVar v -> ([], v) + AnnApp f a -> case chomp f of (az, f) -> (snd a:az, f) + AnnNote n e -> chomp e + other -> pprPanic "schemeT" + (ppr (deAnnotate (panic "schemeT.chomp", other))) args_r_to_l = filter (not.isTypeAtom) args_r_to_l_raw isTypeAtom (AnnType _) = True -- 1.7.10.4