From 325ee12311b776c6e30ba30d244f49b672a8e1a6 Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Mon, 16 May 2011 19:18:31 -0400 Subject: [PATCH] Renamed success -> outcome --- klink.c | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/klink.c b/klink.c index ee94bd5..c723263 100644 --- a/klink.c +++ b/klink.c @@ -2549,9 +2549,9 @@ destructure_to_array if (type == K_NO_TYPE) { return destr_success; } /* $$IMPROVE ME Get expected max_args and limit to that length */ - kt_destr_outcome success = + kt_destr_outcome outcome = destructure (sc,obj,type, &array, array + length); - if (success != destr_success) + if (outcome != destr_success) { pko err = where_typemiss(sc,obj,type); *perr = err ? err : mk_string("Couldn't find the typemiss"); @@ -2573,13 +2573,13 @@ DEF_SIMPLE_APPLICATIVE (ps0a2, do_destructure,T_NO_K,unsafe,"do-destructure") const int max_args = 5; pko arg_array [max_args]; pko * outarray = arg_array; - kt_destr_outcome success = + kt_destr_outcome outcome = destructure (sc, argobject, typespec, &outarray, arg_array + max_args); - if (success != destr_success) + if (outcome != destr_success) { /* $$IMPROVE ME Get and report typemiss err */ KERNEL_ERROR_0 (sc, "do_destructure: argobject is the wrong type"); @@ -2588,8 +2588,8 @@ DEF_SIMPLE_APPLICATIVE (ps0a2, do_destructure,T_NO_K,unsafe,"do-destructure") pko vec = mk_vector (len, K_NIL); WITH_UNBOXED_UNSAFE (pdata,kt_vector,vec); outarray = pdata->els; - success = destructure (sc, argobject, typespec, &outarray, outarray + len); - assert (success == destr_success); + outcome = destructure (sc, argobject, typespec, &outarray, outarray + len); + assert (outcome == destr_success); return vec; } @@ -3705,14 +3705,14 @@ DEF_SIMPLE_APPLICATIVE(ps0a3, listloop,0,ground, "listloop") /* Destructure the args by style */ pko err; - kt_destr_outcome success = + kt_destr_outcome outcome = destructure_to_array(sc, args, style_v->destructurer, style_args, lls_num_args, &err); - if (success != destr_success) + if (outcome != destr_success) { KERNEL_ERROR_1(sc, "listloop: argobject is the wrong type", err); } @@ -7235,9 +7235,9 @@ klink_call_cfunc (klink * sc, pko functor, pko env, pko args) const int max_args = 5; pko arg_array[max_args]; pko err; - kt_destr_outcome success = + kt_destr_outcome outcome = destructure_to_array(sc,args, p_cfunc->argcheck, arg_array, max_args, &err); - if (success != destr_success) + if (outcome != destr_success) { KERNEL_ERROR_1(sc, "kernel_call: argobject is the wrong type", LIST2(functor, err)); -- 2.11.4.GIT