Fix up the bind_signature op patch from a couple of days ago. I said …

…it looked very dubious at the time and we wre just getting lucky. Seems I was right. Hopefully this is the proper fix.
rakudo · Mar 25, 2010 · 99c4bcf · 99c4bcf
1 parent e673638
commit 99c4bcf
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
@@ -644,12 +644,16 @@ inline op bind_signature(in PMC) :base_core {
             /* Maybe we need to auto-thread... */
             if (bind_error == BIND_RESULT_JUNCTION) {
                 /* Find dispatcher and call it. */
+                PMC *returns = Parrot_pmc_new(interp, enum_class_CallContext);
                 PMC *dispatcher = Parrot_find_global_n(interp, Parrot_get_ctx_HLL_namespace(interp),
                         string_from_literal(interp, "!DISPATCH_JUNCTION_SINGLE"));
                 opcode_t *next;
                 PMC *junc_result, *caller_sig;
                 Parrot_ext_call(interp, dispatcher, "PP->P", sub, $1, &junc_result);
 
+                /* Build call signautre of returns and set it. */
+                VTABLE_push_pmc(interp, returns, junc_result);
+                Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), returns);
 
                 /* Invoke the current return continuation, to return said value. */
                 next = VTABLE_invoke(interp, Parrot_pcc_get_continuation(interp,