Pass test 45-smartmatch.

Implement subrule with a block as the first argument. (We need to check if it's how it's supposed to be implemented).
Raku · Aug 22, 2015 · d36f571 · d36f571
1 parent e365704
commit d36f571
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/vm/js/QAST/Compiler.nqp b/src/vm/js/QAST/Compiler.nqp
@@ -1346,9 +1346,9 @@ class RegexCompiler {
 
         my $call;
         if nqp::istype($node[0][0], QAST::Block) {
-            $call := $!compiler.NYI("special subrule call");
-#                #TODO think if arguments are possible, etc.
-#                #$call := self.as_js($node[0][0])~".apply(cursor,[{self.ctx},nqp.empty_named(),cursor])";
+            #TODO think if arguments are possible, etc.
+            my $block := $!compiler.as_js($node[0][0], :want($T_OBJ));
+            $call := Chunk.new($T_OBJ, $block.expr ~ ".\$call({$*BLOCK.ctx},nqp.named([]),$!cursor)", [$block]);
         }
         else {
             # TODO arguments

diff --git a/src/vm/js/bin/run_tests b/src/vm/js/bin/run_tests
@@ -1,3 +1,3 @@
 #!/bin/bash
 # 19 and 30 where moved out as they were parrot specific, 52,54 is missing, we can't pass 49 till we are bootstraped
-prove "$@" -e  './nqp-js' t/nqp/{01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,20,21,22,23,25,26,27,28,31,32,33,34,35,36,37,38,39,40,41,42,46,47,48,50,51,53,55,56,57,58,59,60,61,62,63,64,65,68,69,70,71,72,73,74,75,76,77,78,79,81,83,88,89,90,91,92,93,94,95}* t/js/getcomp-js.t t/qast/02*
+prove "$@" -e  './nqp-js' t/nqp/{01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,20,21,22,23,25,26,27,28,31,32,33,34,35,36,37,38,39,40,41,42,45,46,47,48,50,51,53,55,56,57,58,59,60,61,62,63,64,65,68,69,70,71,72,73,74,75,76,77,78,79,81,83,88,89,90,91,92,93,94,95}* t/js/getcomp-js.t t/qast/02*