mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

Fix some typing issues wrt SCM/scm_bits_t.

Browse source
This commit is contained in:
Dirk Herrmann 2000-03-30 09:15:15 +00:00
parent fbd485ba49
commit 843524cc20
5 changed files with 37 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/async.c
View file

@ -298,7 +298,7 @@ SCM_DEFINE (scm_async, "async", 1, 0, 0,
"")
#define FUNC_NAME s_scm_async
{
SCM_RETURN_NEWSMOB2 (scm_tc16_async, 0, thunk);
SCM_RETURN_NEWSMOB2 (scm_tc16_async, 0, SCM_UNPACK (thunk));
}
#undef FUNC_NAME
@ -368,7 +368,7 @@ SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
#else
scm_asyncs_pending_p = 0;
#endif
while (list_of_a != SCM_EOL)
while (! SCM_NULLP (list_of_a))
{
SCM a;
struct scm_async * it;