Rename some internal methods to be more consistent.

perl6 · Oct 22, 2009 · 3b82660 · 3b82660
1 parent 981e5ea
commit 3b82660
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/src/PAST/Regex.pir b/src/PAST/Regex.pir
@@ -254,7 +254,7 @@ at this node.
     $P99 = get_hll_global ['PAST'], 'Var'
     selfpast = $P99.'new'( 'name'=>'self', 'scope'=>'register')
     $P99 = get_hll_global ['PAST'], 'Op'
-    spast = $P99.'new'( selfpast, name, prefix, 'name'=>'!subrule_peek', 'pasttype'=>'callmethod')
+    spast = $P99.'new'( selfpast, name, prefix, 'name'=>'!PREFIX__!subrule', 'pasttype'=>'callmethod')
     .return (spast)
 
   subrule_none:

diff --git a/src/Regex/Cursor-protoregex-peek.pir b/src/Regex/Cursor-protoregex-peek.pir
@@ -324,15 +324,15 @@ recreating it on future calls.
 .end
 
 
-=item !protoregex_peek(name)
+=item !PREFIX__!protoregex(name)
 
 Return the set of initial tokens for protoregex C<name>.
 These are conveniently available as the keys of the
 tokrx hash.
 
 =cut
 
-.sub '!protoregex_peek' :method
+.sub '!PREFIX__!protoregex' :method
     .param string name
 
     .local pmc tokrx
@@ -355,7 +355,7 @@ tokrx hash.
 .end
 
 
-.sub '!subrule_peek' :method
+.sub '!PREFIX__!subrule' :method
     .param string name
     .param string prefix
 

diff --git a/src/Regex/P6Grammar/Actions.pm b/src/Regex/P6Grammar/Actions.pm
@@ -58,7 +58,7 @@ method regex_stmt($/, $key?) {
                     PAST::Op.new( 
                         PAST::Var.new( :name('self'), :scope('register') ),
                         $name,
-                        :name('!protoregex_peek'),
+                        :name('!PREFIX__!protoregex'),
                         :pasttype('callmethod'),
                     ),
                     :blocktype('method'),