Move Regex.ACCEPTS to core.

rakudo · Feb 23, 2010 · 3b44842 · 3b44842
1 parent 7452234
commit 3b44842
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -188,6 +188,7 @@ CORE_SOURCES = \
   src/core/Parameter.pm \
   src/core/Signature.pm \
   src/core/Block.pm \
+  src/core/Regex.pm \
   src/core/system.pm \
   src/cheats/match-bool.pm \
   src/cheats/setup-io.pm \

diff --git a/src/builtins/Regex.pir b/src/builtins/Regex.pir
@@ -18,14 +18,6 @@ This file sets up the Perl 6 C<Regex> class, the class for regexes.
     p6meta.'new_class'('Regex', 'parent'=>'Method')
 .end
 
-.sub 'ACCEPTS' :method
-    .param pmc topic
-    .local pmc match
-    match = topic.'match'(self)
-    store_dynamic_lex '$/', match
-    .return (match)
-.end
-
 =over 4
 
 =back

diff --git a/src/core/Regex.pm b/src/core/Regex.pm
@@ -0,0 +1,7 @@
+augment class Regex {
+    method ACCEPTS($topic) {
+        my $match = $topic.match(self);
+        pir::store_dynamic_lex__vSP('$/', $match);
+        $match
+    }
+}