[make heap checking smarter in -fdebug mode
John Meacham <john@repetae.net>**20070313022051] hunk ./data/jhc_rts2.c 122
-        assert(jhc_malloc_sanity(s,P_LAZY));
-        if(ISLAZY(s->head)) {
-                if(s->head == BLACK_HOLE) return 1;
-                assert(GETTAG(s->head) == P_LAZY);
-                fptr_t dhead = DETAG(s->head);
+        node_t *ds = (sptr_t)DETAG(s);
+        assert(jhc_malloc_sanity(ds,P_LAZY));
+        if(ISLAZY(ds->head)) {
+                if(ds->head == BLACK_HOLE) return 1;
+                assert(GETTAG(ds->head) == P_LAZY);
+                fptr_t dhead = (fptr_t)DETAG(ds->head);
hunk ./data/jhc_rts2.c 131
-                return jhc_valid_whnf((wptr_t)s->head);
+                return jhc_valid_whnf((wptr_t)ds->head);
hunk ./data/jhc_rts2.c 134
+