make conjseq handle zerowidth subtype

Raku · Nov 20, 2011 · fd2fd16 · fd2fd16
1 parent e1a19de
commit fd2fd16
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -229,6 +229,7 @@ class QAST::Compiler is HLL::Compiler {
             self.regex_peek($ops, $conjlabel, '$I11', '$I12');
             $ops.push_pirop('ne', %*REG<pos>, '$I12', %*REG<fail>);
         }
+        $ops.push_pirop('set', %*REG<pos>, '$I11') if $node.subtype eq 'zerowidth';
         $ops;
     }