Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Allow method ^foo() { ... } to work in augment.
  • Loading branch information
jnthn committed Mar 12, 2015
1 parent b7dc805 commit a6a8793
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions src/Perl6/Metamodel/ClassHOW.nqp
Expand Up @@ -163,12 +163,13 @@ class Perl6::Metamodel::ClassHOW
# Create BUILDPLAN.
self.create_BUILDPLAN($obj);

# Compose the representation and meta-methods, unless we already
# did so once.
# Compose the representation, provided this isn't an augment.
unless $was_composed {
self.compose_repr($obj);
self.compose_meta_methods($obj);
}

# Compose the meta-methods.
self.compose_meta_methods($obj);

# Compose invocation protocol.
self.compose_invocation($obj);
Expand Down

0 comments on commit a6a8793

Please sign in to comment.