summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-30 15:03:23 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-03-30 15:03:23 +0000
commit22a52da14dd86801cc3a36837601929effde1904 (patch)
tree3742d5d516018e6fcf53ace4d6f68762e285891c /libguile/async.c
parent8715ff170378801396575750c54f32fba3a0b624 (diff)
downloadguile-22a52da14dd86801cc3a36837601929effde1904.tar.gz
* Replaced a lot of calls to SCM_C[AD]R with more appropriate macros.
* Minor cleanups to hashtable implementation. * Minor code beautifications.
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c14
1 files changed, 4 insertions, 10 deletions
diff --git a/libguile/async.c b/libguile/async.c
index e57b821ae..ae3f5dcaf 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 96, 97, 98, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -130,7 +130,7 @@ scm_asyncs_pending ()
{
SCM pos;
pos = scm_asyncs;
- while (pos != SCM_EOL)
+ while (!SCM_NULLP (pos))
{
SCM a = SCM_CAR (pos);
if (ASYNC_GOT_IT (a))
@@ -300,14 +300,8 @@ SCM_DEFINE (scm_system_async, "system-async", 1, 0, 0,
"add it to the system's list of active async objects.")
#define FUNC_NAME s_scm_system_async
{
- SCM it;
- SCM list;
-
- it = scm_async (thunk);
- SCM_NEWCELL (list);
- SCM_SETCAR (list, it);
- SCM_SETCDR (list, scm_asyncs);
- scm_asyncs = list;
+ SCM it = scm_async (thunk);
+ scm_asyncs = scm_cons (it, scm_asyncs);
return it;
}
#undef FUNC_NAME