implemented named arguments for 'callmethod'

Same code as for 'call'. Will refactor in the next commit.

Author: Carl Masak

src/QAST/Operations.nqp

@@ -397,7 +397,11 @@ QAST::Operations.add_core_op('callmethod', -> $qastcomp, $op {
     for @args {
         my $arg_post := $qastcomp.as_post($_);
         $ops.push($arg_post);
-        @arg_results.push($arg_post.result);
+        my $result := $arg_post.result;
+        if $_.named -> $name {
+            $result := $result ~ " :named(" ~ $qastcomp.escape($name) ~ ")";
+        }
+        @arg_results.push($result);
     }
 
     # Figure out result register type and allocate a register for it.

src/QAST/WVal.nqp

@@ -1,2 +1,2 @@
-class QAST::WVal does QAST::CompileTimeValue {
+class QAST::WVal is QAST::Node does QAST::CompileTimeValue {
 }

t/qast/qast.t

@@ -36,6 +36,7 @@ class B { method m() { 'b' } }
 class C { method add($a, $b) { $a + $b } }
 class D { method m() { 206 } }
 class E { has int $!x; }
+class F { method greet(:$greeting, :$name) { "$greeting $name" } }
 
 is_qast(
     QAST::Block.new(
@@ -774,5 +775,18 @@ is_qast(
             )
         ),
         'OH HAI kathy',
-        'call with named argument works');
+        'call with named arguments works');
 }
+
+is_qast(
+    QAST::Block.new(
+        QAST::Op.new(
+            :op('callmethod'), :name('greet'),
+            QAST::WVal.new( :value(F) ),
+            QAST::SVal.new( :named('name'), :value('greg') ),
+            QAST::SVal.new( :named('greeting'), :value('DDD,') ),
+        )
+    ),
+    'DDD, greg',
+    'callmethod with named arguments works');
+