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

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

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

revision 1.72 by mvo, Sun Oct 27 20:22:01 2002 UTC revision 1.73 by mvo, Sun Nov 3 22:05:10 2002 UTC
# Line 248  SCM_DEFINE (scm_system_async_mark_for_th Line 248  SCM_DEFINE (scm_system_async_mark_for_th
248              "signal handlers.")              "signal handlers.")
249  #define FUNC_NAME s_scm_system_async_mark_for_thread  #define FUNC_NAME s_scm_system_async_mark_for_thread
250  {  {
 #ifdef USE_THREADS  
251    if (SCM_UNBNDP (thread))    if (SCM_UNBNDP (thread))
252      thread = scm_current_thread ();      thread = scm_current_thread ();
253    else    else
# Line 259  SCM_DEFINE (scm_system_async_mark_for_th Line 258  SCM_DEFINE (scm_system_async_mark_for_th
258      }      }
259    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F),    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F),
260                            scm_i_thread_root (thread));                            scm_i_thread_root (thread));
 #else  
   scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root);  
 #endif  
261    return SCM_UNSPECIFIED;    return SCM_UNSPECIFIED;
262  }  }
263  #undef FUNC_NAME  #undef FUNC_NAME

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

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