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

Rename scm_call_varargs -> scm_call

Browse source 
* libguile/eval.c, libguile/eval.h, doc/ref/api-evaluation.texi,
  test-suite/standalone/test-loose-ends.c, NEWS: Rename
  scm_call_varargs -> scm_call

Suggested by Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Mark H Weaver 2012-01-30 11:02:29 -05:00
parent 741b8a2300
commit 07c2ca0f0d
5 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
test-suite/standalone/test-loose-ends.c
View file

@ -59,18 +59,18 @@ test_scm_local_eval ()
}
static void
test_scm_call_varargs ()
test_scm_call ()
{
SCM result;
result = scm_call_varargs (scm_c_public_ref ("guile", "+"),
scm_from_int (1),
scm_from_int (2),
SCM_UNDEFINED);
result = scm_call (scm_c_public_ref ("guile", "+"),
scm_from_int (1),
scm_from_int (2),
SCM_UNDEFINED);
assert (scm_is_true (scm_equal_p (result, scm_from_int (3))));
result = scm_call_varargs (scm_c_public_ref ("guile", "list"),
SCM_UNDEFINED);
result = scm_call (scm_c_public_ref ("guile", "list"),
SCM_UNDEFINED);
assert (scm_is_eq (result, SCM_EOL));
}
@ -79,7 +79,7 @@ tests (void *data, int argc, char **argv)
{
test_scm_from_locale_keywordn ();
test_scm_local_eval ();
test_scm_call_varargs ();
test_scm_call ();
}
int