/[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.66 by mvo, Wed Oct 9 22:44:02 2002 UTC revision 1.67 by mvo, Fri Oct 11 13:02:50 2002 UTC
# Line 229  SCM_DEFINE (scm_system_async_mark_for_th Line 229  SCM_DEFINE (scm_system_async_mark_for_th
229              "use the current thread.")              "use the current thread.")
230  #define FUNC_NAME s_scm_system_async_mark_for_thread  #define FUNC_NAME s_scm_system_async_mark_for_thread
231  {  {
232    #ifdef USE_THREADS
233    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F),    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F),
234                            (SCM_UNBNDP (thread)                            (SCM_UNBNDP (thread)
235                             ? scm_root                             ? scm_root
236                             : scm_i_thread_root (thread)));                             : scm_i_thread_root (thread)));
237    #else
238      scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root);
239    #endif
240    return SCM_UNSPECIFIED;    return SCM_UNSPECIFIED;
241  }  }
242  #undef FUNC_NAME  #undef FUNC_NAME

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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