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

* dynl.c, feature.c, filesys.c, fports.c, list.c, load.c,

Browse source 
net_db.c, sort.c, stacks.c, unif.c: Use SCM_WTA, SCM_MISC_ERROR
where possible.

* symbols.c (scm_sysintern0): Fixed the function name in a
scm_misc_error invocation.

* print.c (scm_simple_format): Do not need SCM_COERCE_SUBSTR, and
use scm_return_first to ward off latent GC bug that Mikael caught.

* async.c: Use SCM_VALIDATE_ASYNC_COPY one place where it wasn't
used before but should've been.
This commit is contained in:
Greg J. Badros 2000-01-11 23:56:47 +00:00
parent 88423ab1ab
commit 5d2d2ffca7
13 changed files with 23 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/async.c
View file

@ -348,8 +348,7 @@ SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
struct scm_async * it;
SCM_VALIDATE_CONS (1,list_of_a);
a = SCM_CAR (list_of_a);
SCM_ASSERT (SCM_ASYNCP (a), a, SCM_ARG1, FUNC_NAME);
it = SCM_ASYNC (a);
SCM_VALIDATE_ASYNC_COPY (SCM_ARG1,a,it);
scm_mask_ints = 1;
if (it->got_it)
{
@ -371,9 +370,7 @@ SCM_DEFINE (scm_noop, "noop", 0, 0, 1,
"")
#define FUNC_NAME s_scm_noop
{
return (SCM_NULLP (args)
? SCM_BOOL_F
: SCM_CAR (args));
return (SCM_NULLP (args) ? SCM_BOOL_F : SCM_CAR (args));
}
#undef FUNC_NAME