[truffle] Make nqp::who work on type objects

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/sixmodel/NQPWhoNode.java

@@ -5,25 +5,21 @@
 import org.perl6.nqp.truffle.runtime.NQPNull;
 import org.perl6.nqp.truffle.nodes.NQPObjNode;
 import org.perl6.nqp.truffle.sixmodel.TypeObject;
+import com.oracle.truffle.api.dsl.NodeChild;
+import com.oracle.truffle.api.dsl.NodeChildren;
+import com.oracle.truffle.api.dsl.Specialization;
 import org.perl6.nqp.dsl.Deserializer;
 
 @NodeInfo(shortName = "who")
-public final class NQPWhoNode extends NQPObjNode {
-    @Child private NQPNode argNode;
-
-    @Deserializer
-    public NQPWhoNode(NQPNode argNode) {
-        this.argNode = argNode;
+@NodeChildren({@NodeChild(value="valueNode", type=NQPNode.class)})
+public class NQPWhoNode extends NQPObjNode {
+    @Specialization
+    public Object doTypeObject(TypeObject typeObject) {
+        return typeObject.stable.who;
     }
 
-    @Override
-    public Object execute(VirtualFrame frame) {
-        Object object = argNode.execute(frame);
-        System.out.println("who: " + object);
-        //return ((TypeObject) object).stable;
-
-        return NQPNull.SINGLETON;
-
-        //return who(argNode.execute(frame));
+    @Deserializer("who")
+    public static NQPWhoNode deserialize(NQPNode valueNode) {
+        return NQPWhoNodeGen.create(valueNode);
     }
 }