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

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

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

revision 1.235 by hanwen, Sun Sep 8 11:31:32 2002 UTC revision 1.236 by mvo, Fri Oct 4 13:42:43 2002 UTC
# Line 981  mark_gc_async (void * hook_data SCM_UNUS Line 981  mark_gc_async (void * hook_data SCM_UNUS
981  void  void
982  scm_init_gc ()  scm_init_gc ()
983  {  {
   SCM after_gc_thunk;  
   
   
984    scm_gc_init_mark ();    scm_gc_init_mark ();
985    
986    scm_after_gc_hook = scm_permanent_object (scm_make_hook (SCM_INUM0));    scm_after_gc_hook = scm_permanent_object (scm_make_hook (SCM_INUM0));
987    scm_c_define ("after-gc-hook", scm_after_gc_hook);    scm_c_define ("after-gc-hook", scm_after_gc_hook);
988    
989    after_gc_thunk = scm_c_make_subr ("%gc-thunk", scm_tc7_subr_0,    gc_async = scm_c_make_subr ("%gc-thunk", scm_tc7_subr_0,
990                                      gc_async_thunk);                                gc_async_thunk);
   gc_async = scm_system_async (after_gc_thunk);  /* protected via scm_asyncs */  
991    
992    scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);    scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);
993    

Legend:
Removed from v.1.235  
changed lines
  Added in v.1.236

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