X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Fcompiler.c;fp=ghc%2Finterpreter%2Fcompiler.c;h=5a2fbd6addc6970d9ac489ab0917264e7303f285;hb=e566a694f59e5b7b020104ea4a24f465d4a2cbe3;hp=30483d04df7153256e6bf3dfb5b1ce60b04f85a6;hpb=d3aa7046cf134bf972551dbfd8ae561a0dbc07bc;p=ghc-hetmet.git diff --git a/ghc/interpreter/compiler.c b/ghc/interpreter/compiler.c index 30483d0..5a2fbd6 100644 --- a/ghc/interpreter/compiler.c +++ b/ghc/interpreter/compiler.c @@ -11,8 +11,8 @@ * included in the distribution. * * $RCSfile: compiler.c,v $ - * $Revision: 1.14 $ - * $Date: 1999/11/22 14:39:43 $ + * $Revision: 1.15 $ + * $Date: 1999/11/22 16:00:21 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -1509,7 +1509,7 @@ Void evalExp() { /* compile and run input expression */ switch (status) { case Deadlock: case AllBlocked: /* I don't understand the distinction - ADR */ - printf("{Deadlock -- might be circular data dependencies}"); + printf("{Deadlock or Blackhole}"); if (doRevertCAFs) RevertCAFs(); break; case Interrupted: