/[gcl]/gcl/o/gbc.c
ViewVC logotype

Diff of /gcl/o/gbc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by camm, Sun Sep 18 02:48:59 2005 UTC revision 1.34 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 218  mark_cons(object x) { Line 218  mark_cons(object x) {
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 {
# Line 231  mark_cons(object x) { Line 231  mark_cons(object x) {
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);

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26