From: simonmar <unknown>
Date: Fri, 19 Jan 2001 12:23:16 +0000 (+0000)
Subject: [project @ 2001-01-19 12:23:16 by simonmar]
X-Git-Tag: Approximately_9120_patches~2846
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d637d3565b5c1eff9e9a5cf9451db94f73ae7774;p=ghc-hetmet.git

[project @ 2001-01-19 12:23:16 by simonmar]
ignore Notes when compiling tail calls.
---

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