From 85a7f71474c9d479f971dbdc5605fbf514a73181 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sun, 3 Nov 2019 09:58:36 +0100
Subject: [PATCH] core: gc: Abort upon broken heart failure.

* src/gc.c (gc_cellcpy, gc_loop): Abort upon broken heart failure.
---
 src/gc.c | 18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

diff --git a/src/gc.c b/src/gc.c
index 76be2f94..d159695f 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -427,14 +427,7 @@ gc_cellcpy (struct scm *dest, struct scm *src, size_t n)
       long d = src->cdr;
       dest->type = t;
       if (t == TBROKEN_HEART)
-        {
-          dest->type = 0;
-          a = 0;
-          d = 0;
-#if 0
-          assert_msg (0, "gc_cellcpy: broken heart");
-#endif
-        }
+        assert_msg (0, "gc_cellcpy: broken heart");
       if (t == TMACRO
           || t == TPAIR
           || t == TREF
@@ -609,14 +602,7 @@ gc_loop (SCM scan)
     {
       long t = NTYPE (scan);
       if (t == TBROKEN_HEART)
-        {
-          NTYPE (scan) = 0;
-          NCAR (scan) = 0;
-          NCDR (scan) = 0;
-#if 0
-          assert_msg (0, "gc_loop: broken heart");
-#endif
-        }
+        assert_msg (0, "gc_loop: broken heart");
       /* *INDENT-OFF* */
       if (t == TMACRO
           || t == TPAIR