From 31ea5f029ee99c240fe306f85f8aa857734632e3 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Sun, 14 Apr 2013 21:12:43 +0200
Subject: [PATCH] Add missing stringification.

---
 nqp-src/NQP.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/nqp-src/NQP.pm b/nqp-src/NQP.pm
index 44afba4..b2f7ff7 100644
--- a/nqp-src/NQP.pm
+++ b/nqp-src/NQP.pm
@@ -158,16 +158,17 @@ class NQP::World is HLL::World {
         # Install symbol immediately.
         my $target := $package;
         for @sym {
-            if nqp::existskey($target.WHO, $_) {
-                $target := nqp::atkey($target.WHO, $_);
+            my $part := ~$_;
+            if nqp::existskey($target.WHO, $part) {
+                $target := nqp::atkey($target.WHO, $part);
             }
             else {
                 my $pkgtype := nqp::existskey(%*HOW, 'package')
                     ?? nqp::atkey(%*HOW, 'package')
                     !! nqp::atkey(%*HOW, 'knowhow');
-                my $pkg := $pkgtype.new_type(:name($_));
+                my $pkg := $pkgtype.new_type(:name($part));
                 $pkg.HOW.compose($pkg);
-                $target := nqp::bindkey($target.WHO, $_, $pkg);
+                $target := nqp::bindkey($target.WHO, $part, $pkg);
             }
         }
         ($target.WHO){$name} := $obj;