flip: broken heart.
This commit is contained in:
parent
b1cdcd2930
commit
225862cf84
18
src/gc.c
18
src/gc.c
|
@ -421,14 +421,7 @@ gc_cellcpy (struct scm *dest, struct scm *src, size_t n)
|
||||||
long d = src->cdr;
|
long d = src->cdr;
|
||||||
dest->type = t;
|
dest->type = t;
|
||||||
if (t == TBROKEN_HEART)
|
if (t == TBROKEN_HEART)
|
||||||
{
|
assert_msg (0, "gc_cellcpy: broken heart");
|
||||||
dest->type = 0;
|
|
||||||
a = 0;
|
|
||||||
d = 0;
|
|
||||||
#if 0
|
|
||||||
assert_msg (0, "gc_cellcpy: broken heart");
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
if (t == TMACRO
|
if (t == TMACRO
|
||||||
|| t == TPAIR
|
|| t == TPAIR
|
||||||
|| t == TREF
|
|| t == TREF
|
||||||
|
@ -613,14 +606,7 @@ gc_loop (SCM scan)
|
||||||
{
|
{
|
||||||
long t = NTYPE (scan);
|
long t = NTYPE (scan);
|
||||||
if (t == TBROKEN_HEART)
|
if (t == TBROKEN_HEART)
|
||||||
{
|
assert_msg (0, "gc_loop: broken heart");
|
||||||
NTYPE (scan) = 0;
|
|
||||||
NCAR (scan) = 0;
|
|
||||||
NCDR (scan) = 0;
|
|
||||||
#if 0
|
|
||||||
assert_msg (0, "gc_loop: broken heart");
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
/* *INDENT-OFF* */
|
/* *INDENT-OFF* */
|
||||||
if (t == TMACRO
|
if (t == TMACRO
|
||||||
|| t == TPAIR
|
|| t == TPAIR
|
||||||
|
|
Loading…
Reference in New Issue