From 69536a0b3b798fd7dc1fb0096a6b5505b4e283f6 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 22 Nov 1999 14:39:43 +0000
Subject: [PATCH] [project @ 1999-11-22 14:39:43 by sewardj] evalExp(): print
 a better message if Deadlock is returned

---
 ghc/interpreter/compiler.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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:
-- 
1.7.10.4