From: sewardj <unknown>
Date: Mon, 22 Nov 1999 14:39:43 +0000 (+0000)
Subject: [project @ 1999-11-22 14:39:43 by sewardj]
X-Git-Tag: Approximately_9120_patches~5527
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=69536a0b3b798fd7dc1fb0096a6b5505b4e283f6;p=ghc-hetmet.git

[project @ 1999-11-22 14:39:43 by sewardj]
evalExp(): print a better message if Deadlock is returned
---

diff --git a/ghc/interpreter/compiler.c b/ghc/interpreter/compiler.c
index 07d0fc4..30483d0 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.13 $
- * $Date: 1999/11/18 12:10:18 $
+ * $Revision: 1.14 $
+ * $Date: 1999/11/22 14:39:43 $
  * ------------------------------------------------------------------------*/
 
 #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}");
+                printf("{Deadlock -- might be circular data dependencies}");
                 if (doRevertCAFs) RevertCAFs();
                 break;
         case Interrupted: