Skip to content

Commit

Permalink
[type graph] fix for roles with superclasses
Browse files Browse the repository at this point in the history
also remove some more non-spec types
  • Loading branch information
moritz committed Jul 24, 2012
1 parent 4b7d9c8 commit 70eb964
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 7 deletions.
7 changes: 7 additions & 0 deletions lib/Perl6/TypeGraph.pm
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,13 @@ class Perl6::TypeGraph {
$t.super.push: $get-type('Any');
}
}
# roles that have a superclass actually apply that superclass
# to the class that does them, so mimic that here:
for %.types.values -> $t {
for $t.roles -> $r {
$t.super.push: $r.super if $r.super;
}
}
self!topo-sort;
}
method !topo-sort {
Expand Down
7 changes: 0 additions & 7 deletions type-graph.txt
Original file line number Diff line number Diff line change
@@ -1,6 +1,4 @@
# ???
class FixupList
class LongName
class AST
class ObjAt
class Dummy
Expand Down Expand Up @@ -43,8 +41,6 @@ role Perl6::Metamodel::ParrotInterop
role Perl6::Metamodel::PrivateMethodContainer
role Perl6::Metamodel::RoleContainer
role Perl6::Metamodel::RolePunning
class RoleToClassApplier
class RoleToRoleApplier
role Perl6::Metamodel::Stashing
class Perl6::Metamodel::StaticLexPad
class Perl6::Metamodel::SubsetHOW
Expand Down Expand Up @@ -78,8 +74,6 @@ class Macro is Routine
class Whatever
class WhateverCode is Code

class WrapHandle
role Wrapped
class CallFrame
class Parameter
class Signature is Cool
Expand All @@ -89,7 +83,6 @@ class Match is Capture is Cool
class Cursor
class Grammar is Cursor
class Regex is Method
role CachedCompiledRegex

# Strings
role Stringy
Expand Down

0 comments on commit 70eb964

Please sign in to comment.