From 225862cf847684194e88b8b2597ed68c2177b3ce Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 3 Nov 2019 09:58:36 +0100
Subject: [PATCH] flip: broken heart.

---
 src/gc.c | 18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

diff --git a/src/gc.c b/src/gc.c
index b9ae7ce5..a1a91a69 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -421,14 +421,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
@@ -613,14 +606,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