Ensure KnowHOWs get a .WHO set up.

jnthn · Feb 27, 2013 · 3651628 · 3651628
1 parent be4c3da
commit 3651628
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/org/perl6/nqp/sixmodel/KnowHOWMethods.java b/src/org/perl6/nqp/sixmodel/KnowHOWMethods.java
@@ -38,7 +38,9 @@ public void new_type(ThreadContext tc) {
             ((KnowHOWREPRInstance)HOW).name = name_arg;
 
         /* Set .WHO to an empty hash. */
-        // XXX TODO
+        SixModelObject Hash = tc.gc.BOOTHash;
+        type_object.st.WHO = Hash.st.REPR.allocate(tc, Hash.st);
+        type_object.st.WHO.initialize(tc);
 
         /* Return the type object. */
         Ops.return_o(type_object, tc.curFrame);