* deprecation.c (scm_c_issue_deprecation_warning_fmt): Add va_end.

* list.c (scm_list_n): Ditto.

diff --git a/libguile/list.c b/libguile/list.c
index f1552c5..07a0d0d 100644 (file)
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -94,6 +94,7 @@ scm_list_n (SCM elt, ...)
       pos = SCM_CDRLOC (*pos);
       elt = va_arg (foo, SCM);
     }
+  va_end (foo);
   return answer;
 }