From 472e4418fa0fe51627a51d15e040bd6cfa17ef62 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 21 May 1999 14:37:12 +0000
Subject: [PATCH] [project @ 1999-05-21 14:37:12 by sof] Improved precision of
 LOOKS_LIKE_PTR()

---
 ghc/rts/Sanity.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index 28bc432..920530a 100644
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Sanity.c,v 1.13 1999/05/11 16:47:57 keithw Exp $
+ * $Id: Sanity.c,v 1.14 1999/05/21 14:37:12 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -23,7 +23,7 @@
 #include "BlockAlloc.h"
 #include "Sanity.h"
 
-#define LOOKS_LIKE_PTR(r) (IS_DATA_PTR(r) || ((HEAP_ALLOCED(r) && Bdescr((P_)r)->free != (void *)-1)))
+#define LOOKS_LIKE_PTR(r) (LOOKS_LIKE_STATIC_CLOSURE(r) || ((HEAP_ALLOCED(r) && Bdescr((P_)r)->free != (void *)-1)))
 
 /* -----------------------------------------------------------------------------
    Check stack sanity
-- 
1.7.10.4