/[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.67 by mvo, Fri Oct 11 13:02:50 2002 UTC revision 1.68 by mvo, Wed Oct 16 16:27:46 2002 UTC
# Line 230  SCM_DEFINE (scm_system_async_mark_for_th Line 230  SCM_DEFINE (scm_system_async_mark_for_th
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  #ifdef USE_THREADS
233      if (SCM_UNBNDP (thread))
234        thread = scm_current_thread ();
235      else
236        SCM_VALIDATE_THREAD (2, thread);
237          
238    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F),    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F),
239                            (SCM_UNBNDP (thread)                            scm_i_thread_root (thread));
                            ? scm_root  
                            : scm_i_thread_root (thread)));  
240  #else  #else
241    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root);    scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root);
242  #endif  #endif

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

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