flip: broken heart.

This commit is contained in:
Jan Nieuwenhuizen 2019-11-03 09:58:36 +01:00
parent b1cdcd2930
commit 225862cf84
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 16 deletions

View File

@ -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