From 846cf3f3775b557a52bc40d765545ce54343e2a1 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sun, 20 Oct 2019 15:27:32 +0200 Subject: [PATCH] dpp: create correct signature for functions with only required arguments --- src/c/dpp.c | 4 +--- src/h/external.h | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/c/dpp.c b/src/c/dpp.c index 57ee151a1..717b94270 100755 --- a/src/c/dpp.c +++ b/src/c/dpp.c @@ -693,9 +693,7 @@ put_fhead(void) fprintf(out, "cl_object %s(cl_narg narg", function_c_name); for (i = 0; i < nreq; i++) fprintf(out, ", cl_object %s", required[i]); - if (nopt > 0 || rest_flag || key_flag) - fprintf(out, ", ..."); - fprintf(out, ")\n{\n"); + fprintf(out, ", ...)\n{\n"); } void diff --git a/src/h/external.h b/src/h/external.h index 0aff0c870..af035d34a 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -533,7 +533,7 @@ extern ECL_API cl_object si_eval_with_env _ECL_ARGS((cl_narg narg, cl_object for /* interpreter.c */ -extern ECL_API cl_object si_interpreter_stack _ECL_ARGS((cl_narg narg)); +extern ECL_API cl_object si_interpreter_stack _ECL_ARGS((cl_narg narg, ...)); extern ECL_API cl_object ecl_stack_frame_open(cl_env_ptr env, cl_object f, cl_index size); extern ECL_API void ecl_stack_frame_push(cl_object f, cl_object o); extern ECL_API void ecl_stack_frame_push_values(cl_object f);