/[guile]/guile/guile-core/libguile/root.c
ViewVC logotype

Diff of /guile/guile-core/libguile/root.c

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

revision 1.60 by ttn, Thu Mar 14 03:47:43 2002 UTC revision 1.61 by ghouston, Sat Apr 20 20:57:09 2002 UTC
# Line 78  root_mark (SCM root) Line 78  root_mark (SCM root)
78    scm_gc_mark (s->cur_inp);    scm_gc_mark (s->cur_inp);
79    scm_gc_mark (s->cur_outp);    scm_gc_mark (s->cur_outp);
80    scm_gc_mark (s->cur_errp);    scm_gc_mark (s->cur_errp);
   scm_gc_mark (s->def_inp);  
   scm_gc_mark (s->def_outp);  
   scm_gc_mark (s->def_errp);  
81    /* No need to gc mark def_loadp */    /* No need to gc mark def_loadp */
82    scm_gc_mark (s->fluids);    scm_gc_mark (s->fluids);
83    return SCM_ROOT_STATE (root) -> parent;    return SCM_ROOT_STATE (root) -> parent;
# Line 125  scm_make_root (SCM parent) Line 122  scm_make_root (SCM parent)
122          = root_state->cur_inp          = root_state->cur_inp
123          = root_state->cur_outp          = root_state->cur_outp
124          = root_state->cur_errp          = root_state->cur_errp
         = root_state->def_inp  
         = root_state->def_outp  
         = root_state->def_errp  
125          = root_state->cur_loadp          = root_state->cur_loadp
126          = root_state->fluids          = root_state->fluids
127          = root_state->handle          = root_state->handle

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

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