From 70e58161cef9473c047d7d3591aba14c874fe4ea Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Thu, 19 May 2011 22:24:18 -0400
Subject: [PATCH] destr_result_to_vec now matches signature
 destructure_to_array expects

---
 klink.c | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/klink.c b/klink.c
index b9b15eb..f814fab 100644
--- a/klink.c
+++ b/klink.c
@@ -2159,10 +2159,15 @@ destr_result_fill_array (pko dr, int max_len, pko * array)
 }
 
 /*_     , destr_result_to_vec */
-/* $$CHANGE MY SIGNATURE Take a dummy result first. */
-DEF_CFUNC (p00a1, destr_result_to_vec, REF_OPER (is_destr_result), T_NO_K)
+SIG_CHKARRAY (destr_result_to_vec) =
 {
-  WITH_1_ARGS (destr_result);
+  K_ANY,
+  REF_OPER (is_destr_result),
+};
+
+DEF_SIMPLE_CFUNC (p00a2, destr_result_to_vec, T_NO_K)
+{
+  WITH_2_ARGS (dummy __attribute__((unused)), destr_result);
   WITH_UNBOXED_UNSAFE (p_destr_result, kt_destr_result, destr_result);
   int len =
     basvector_len (p_destr_result->_car) +
-- 
2.11.4.GIT