nqp.patch

diff --git a/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp b/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp
index 3ba2441..7428fe1 100644
--- a/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp
+++ b/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp
@@ -494,6 +494,12 @@ class QAST::MASTRegexCompiler {
             nqp::push(@args, $sname);
             nqp::push(@flags, $Arg::str);
         }
+        elsif +@($node) == 1 {
+            my $name := $*QASTCOMPILER.as_mast($node[0], :want($MVM_reg_str));
+            merge_ins(@ins, $name.instructions);
+            nqp::push(@args, $name.result_reg);
+            nqp::push(@flags, $Arg::str);
+        }
         if $node.backtrack ne 'r' {
             nqp::push(@args, sval('backtrack'));
             nqp::push(@args, %*REG<one>);

problem.sh

$ perl6-m -e 'sub term:<foo> { 42 }; say foo'
===SORRY!===
Cannot invoke this object (REPR: P6str, cs = 0