remove old Substitution hack

rakudo · Jul 26, 2010 · 9808d7c · 9808d7c
1 parent ed98e0f
commit 9808d7c
Show file tree

Hide file tree

Showing 4 changed files with 1 addition and 20 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -222,7 +222,6 @@ CORE_SOURCES = \
   src/core/Regex.pm \
   src/core/Junction.pm \
   src/core/Grammar.pm \
-  src/core/Substitution.pm \
   src/core/system.pm \
   src/cheats/process.pm \
   src/core/tai-utc.pm \

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2709,7 +2709,7 @@ method quote:sym<s>($/) {
     );
     my $closure := block_closure($closure_ast, 'Block', 0);
 
-    # Make a Substitution.
+    # make $_ = $_.subst(...)
     my $past := PAST::Op.new(
         :node($/),
         :pasttype('callmethod'), :name('subst'),

diff --git a/src/core/Substitution.pm b/src/core/Substitution.pm
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -11,11 +11,6 @@ our multi infix:<~~>(Mu $topic, Regex $matcher) {
     };
 }
 
-class Substitution { ... }
-our multi infix:<~~>(Mu $topic is rw, Substitution $matcher) {
-    $matcher.ACCEPTS($topic)
-}
-
 our multi prefix:<?>(Mu $a) {
     pir::can($a, 'Bool')
     ?? $a.Bool