Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Need to not pun calls to .WHATon a role (this can go away when .WHAT …
…really becomes a macro).
  • Loading branch information
unknown authored and unknown committed Apr 18, 2009
1 parent 11bc88f commit 341f449
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions src/classes/ClassHOW.pir
Expand Up @@ -48,10 +48,12 @@ Dispatches to method of the given name on this class or one of its parents.
.param pmc name_args :slurpy :named

# If it's a call on a role, need to pun it.
if name == 'WHAT' goto no_pun
$I0 = isa obj, 'Perl6Role'
if $I0 goto pun_role_unselected
$I0 = isa obj, 'Role'
if $I0 goto pun_role
no_pun:

# Get MRO and an interator on it. Note that we need to handle calls on
# protos a little specially, since parrotclass on them doesn't hand back
Expand Down

0 comments on commit 341f449

Please sign in to comment.