/[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.60 by mvo, Sun Nov 25 15:04:56 2001 UTC revision 1.61 by ossau, Tue Jan 22 23:31:38 2002 UTC
# Line 48  Line 48 
48  #include "libguile/throw.h"  #include "libguile/throw.h"
49  #include "libguile/root.h"  #include "libguile/root.h"
50  #include "libguile/smob.h"  #include "libguile/smob.h"
51    #include "libguile/lang.h"
52    
53  #include "libguile/validate.h"  #include "libguile/validate.h"
54  #include "libguile/async.h"  #include "libguile/async.h"
# Line 128  scm_asyncs_pending () Line 129  scm_asyncs_pending ()
129  {  {
130    SCM pos;    SCM pos;
131    pos = scm_asyncs;    pos = scm_asyncs;
132    while (!SCM_NULLP (pos))    while (!SCM_NULL_OR_NIL_P (pos))
133      {      {
134        SCM a = SCM_CAR (pos);        SCM a = SCM_CAR (pos);
135        if (ASYNC_GOT_IT (a))        if (ASYNC_GOT_IT (a))
# Line 356  SCM_DEFINE (scm_run_asyncs, "run-asyncs" Line 357  SCM_DEFINE (scm_run_asyncs, "run-asyncs"
357  #else  #else
358    scm_asyncs_pending_p = 0;    scm_asyncs_pending_p = 0;
359  #endif  #endif
360    while (! SCM_NULLP (list_of_a))    while (! SCM_NULL_OR_NIL_P (list_of_a))
361      {      {
362        SCM a;        SCM a;
363        SCM_VALIDATE_CONS (1, list_of_a);        SCM_VALIDATE_CONS (1, list_of_a);
# Line 385  SCM_DEFINE (scm_noop, "noop", 0, 0, 1, Line 386  SCM_DEFINE (scm_noop, "noop", 0, 0, 1,
386  #define FUNC_NAME s_scm_noop  #define FUNC_NAME s_scm_noop
387  {  {
388    SCM_VALIDATE_REST_ARGUMENT (args);    SCM_VALIDATE_REST_ARGUMENT (args);
389    return (SCM_NULLP (args) ? SCM_BOOL_F : SCM_CAR (args));    return (SCM_NULL_OR_NIL_P (args) ? SCM_BOOL_F : SCM_CAR (args));
390  }  }
391  #undef FUNC_NAME  #undef FUNC_NAME
392    

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

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