/[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.64 by mvo, Wed Oct 9 22:37:29 2002 UTC revision 1.65 by mvo, Sun Oct 27 20:16:18 2002 UTC
# Line 81  root_mark (SCM root) Line 81  root_mark (SCM root)
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    scm_gc_mark (s->active_asyncs);    scm_gc_mark (s->active_asyncs);
84      scm_gc_mark (s->signal_asyncs);
85    return SCM_ROOT_STATE (root) -> parent;    return SCM_ROOT_STATE (root) -> parent;
86  }  }
87    
# Line 131  scm_make_root (SCM parent) Line 132  scm_make_root (SCM parent)
132      }      }
133        
134    root_state->active_asyncs = SCM_EOL;    root_state->active_asyncs = SCM_EOL;
135      root_state->signal_asyncs = SCM_EOL;
136    root_state->block_asyncs = 0;    root_state->block_asyncs = 0;
137      root_state->pending_asyncs = 1;
138    
139    SCM_REDEFER_INTS;    SCM_REDEFER_INTS;
140    SCM_NEWSMOB (root, scm_tc16_root, root_state);    SCM_NEWSMOB (root, scm_tc16_root, root_state);

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

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