Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Eliminate $*W mentions in traits.pm.

This was always a hack, unrequired for a while now.
  • Loading branch information...
commit fec4986d7b991f21954ba357bc157b342409e7dd 1 parent 8edd740
@jnthn jnthn authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/core/traits.pm
View
8 src/core/traits.pm
@@ -145,16 +145,16 @@ sub EXPORT_SYMBOL(\exp_name, @tags, Mu \sym) {
$install_in := $p.WHO.{$tag};
}
else {
- $install_in := $*W.pkg_create_mo($/, (package { }).HOW, :name($tag));
- $*W.pkg_compose($install_in);
- $*W.install_package_symbol($p, $tag, $install_in);
+ $install_in := Metamodel::PackageHOW.new_type(:name($tag));
+ $install_in.HOW.compose($install_in);
+ $p.WHO{$tag} := $install_in;
}
if $install_in.WHO.exists(exp_name) {
unless ($install_in.WHO){exp_name} =:= sym {
X::Export::NameClash.new(symbol => exp_name).throw;
}
}
- $*W.install_package_symbol($install_in, exp_name, sym);
+ $install_in.WHO{exp_name} := sym;
}
}
0;
Please sign in to comment.
Something went wrong with that request. Please try again.