From fec4986d7b991f21954ba357bc157b342409e7dd Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Fri, 11 Jan 2013 22:18:45 +0100
Subject: [PATCH] Eliminate $*W mentions in traits.pm.

This was always a hack, unrequired for a while now.
---
 src/core/traits.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/core/traits.pm b/src/core/traits.pm
index 17e5baf5321..b1b2cc8834b 100644
--- a/src/core/traits.pm
+++ b/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;