Skip to content

Instantly share code, notes, and snippets.

/gist:1020741

Created June 11, 2011 16:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/1020741 to your computer and use it in GitHub Desktop.
Save anonymous/1020741 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.none
diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
index 44a041c..02ca019 100644
--- a/src/ops/perl6.ops
+++ b/src/ops/perl6.ops
@@ -564,7 +564,8 @@ use of. Evil, but saves a prophash for every single code object.
*/
inline op perl6_associate_sub_code_object(in PMC, in PMC) :base_core {
- if ($1->vtable->base_type == enum_class_Sub) {
+ if ($1->vtable->base_type == enum_class_Sub
+ || $1->vtable->base_type == enum_class_Coroutine) {
SETATTR_Sub_multi_signature(interp, $1, $2);
PARROT_GC_WRITE_BARRIER(interp, $1);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment