Parent Directory | Revision Log | Patch
revision 1.126 by masse, Mon Aug 4 11:22:02 2003 UTC | revision 1.127 by masse, Mon Aug 4 11:57:33 2003 UTC | |
---|---|---|
# | Line 191 extern void gc_init(environment *env) | Line 191 extern void gc_init(environment *env) |
191 | printf(" symb: %s", env->gc_ref->item->content.sym->id); | printf(" symb: %s", env->gc_ref->item->content.sym->id); |
192 | break; | break; |
193 | case tcons: | case tcons: |
194 | printf(" tcons: %p\t%p", env->gc_ref->item->content.c->car, | printf(" tcons: %p\t%p", CAR(env->gc_ref->item), |
195 | env->gc_ref->item->content.c->cdr); | CDR(env->gc_ref->item)); |
196 | break; | break; |
197 | default: | default: |
198 | printf(" <unknown %d>", (env->gc_ref->item->type)); | printf(" <unknown %d>", (env->gc_ref->item->type)); |
|
root@recompile.se | ViewVC Help |
Powered by ViewVC 1.1.26 |