[project @ 1996-07-15 11:32:34 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplVar.lhs

diff --git a/ghc/compiler/simplCore/SimplVar.lhs b/ghc/compiler/simplCore/SimplVar.lhs
index be0ac48..03401ce 100644 (file)
--- a/ghc/compiler/simplCore/SimplVar.lhs
+++ b/ghc/compiler/simplCore/SimplVar.lhs
@@ -83,7 +83,7 @@ completeVar env var args
 
       GenForm form_summary template guidance
        -> considerUnfolding env var args
-                            (panic "completeVar"{-txt_occ-}) form_summary template guidance
+                            (False{-ToDo:!-}{-txt_occ-}) form_summary template guidance
 
       MagicForm str magic_fun
        ->  applyMagicUnfoldingFun magic_fun env args `thenSmpl` \ result ->