218 |
|
|
219 |
BEGIN: |
BEGIN: |
220 |
if (NULL_OR_ON_C_STACK(x->c.c_car)) goto MARK_CDR; |
if (NULL_OR_ON_C_STACK(x->c.c_car)) goto MARK_CDR; |
221 |
if (type_of(x->c.c_car) == t_cons) { |
if (consp(x->c.c_car)) { |
222 |
if (is_marked_or_free(x->c.c_car)) |
if (is_marked_or_free(x->c.c_car)) |
223 |
; |
; |
224 |
else { |
else { |
231 |
if (NULL_OR_ON_C_STACK(x->c.c_cdr)) |
if (NULL_OR_ON_C_STACK(x->c.c_cdr)) |
232 |
return; |
return; |
233 |
x = Scdr(x); |
x = Scdr(x); |
234 |
if (type_of(x) == t_cons) { |
if (consp(x)) { |
235 |
if (is_marked_or_free(x)) |
if (is_marked_or_free(x)) |
236 |
return; |
return; |
237 |
mark(x); |
mark(x); |