align to the standard about label prefix in dynquant

Raku · Jul 25, 2014 · dbb0832 · dbb0832
1 parent 6319608
commit dbb0832
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/vm/parrot/QAST/Compiler.nqp b/src/vm/parrot/QAST/Compiler.nqp
@@ -1557,7 +1557,7 @@ class QAST::Compiler is HLL::Compiler {
 
         my $backtrack  := $node.backtrack || 'g';
         my $sep        := $node[2];
-        my $prefix     := self.unique($*RXPREFIX ~ '_rxdynquant_' ~ $backtrack);
+        my $prefix     := self.unique('rxdynquant_' ~ $backtrack);
         my $looplabel  := self.post_new('Label', :name($prefix ~ '_loop'));
         my $donelabel  := self.post_new('Label', :name($prefix ~ '_done'));
         my $skip0label := self.post_new('Label', :name($prefix ~ '_skip0'));