From 3f368e29e1d62b69001a14b969713d3ccf8820aa Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sun, 20 Sep 2020 10:58:36 +0200
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 36233100..5e1f734c 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -424,14 +424,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
@@ -606,14 +599,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