/[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.61 by ghouston, Sat Apr 20 20:57:09 2002 UTC revision 1.62 by mvo, Thu Oct 3 22:56:52 2002 UTC
# Line 1  Line 1 
1  /* Copyright (C) 1995,1996,1997,1998,1999,2000, 2001 Free Software Foundation, Inc.  /* Copyright (C) 1995,1996,1997,1998,1999,2000, 2001, 2002 Free Software Foundation, Inc.
2   *   *
3   * This program is free software; you can redistribute it and/or modify   * This program is free software; you can redistribute it and/or modify
4   * it under the terms of the GNU General Public License as published by   * it under the terms of the GNU General Public License as published by
# Line 128  scm_make_root (SCM parent) Line 128  scm_make_root (SCM parent)
128          = root_state->parent          = root_state->parent
129          = SCM_BOOL_F;          = SCM_BOOL_F;
130      }      }
131      
132      root_state->active_asyncs = SCM_EOL;
133    
134    SCM_REDEFER_INTS;    SCM_REDEFER_INTS;
135    SCM_NEWSMOB (root, scm_tc16_root, root_state);    SCM_NEWSMOB (root, scm_tc16_root, root_state);
136    root_state->handle = root;    root_state->handle = root;

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

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