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

(varargs.h): Remove, leave just stdarg.h which is all the

Browse source 
code has support for.  Fixes building with AIX cc, which is ansi but
doesn't define __STDC__.  Reported by Keith Crane.
(var_start): Remove macro, this variation no longer required.
(scm_list_n): Use va_start directly.
This commit is contained in:
Kevin Ryde 2004-05-01 21:26:35 +00:00
parent 312a986b11
commit 558fe9ed15
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/list.c
View file

@ -47,13 +47,7 @@
#include "libguile/validate.h" #include "libguile/validate.h"
#include "libguile/list.h" #include "libguile/list.h"
#ifdef __STDC__
#include <stdarg.h> #include <stdarg.h>
#define var_start(x, y) va_start(x, y)
#else
#include <varargs.h>
#define var_start(x, y) va_start(x)
#endif
/* creating lists */ /* creating lists */
@ -111,7 +105,7 @@ scm_list_n (SCM elt, ...)
SCM answer = SCM_EOL; SCM answer = SCM_EOL;
SCM *pos = &answer; SCM *pos = &answer;
var_start (foo, elt); va_start (foo, elt);
while (! SCM_UNBNDP (elt)) while (! SCM_UNBNDP (elt))
{ {
*pos = scm_cons (elt, SCM_EOL); *pos = scm_cons (elt, SCM_EOL);