Permalink
Browse files

Fudge m// to return Match object (moritz)

  • Loading branch information...
sorear committed Feb 23, 2011
1 parent 755eb94 commit 2a38770341903959fdc819790206e0a77ef80dba
Showing with 3 additions and 6 deletions.
  1. +0 −3 TODO
  2. +1 −0 lib/SAFE.setting
  3. +2 −3 src/niecza
View
3 TODO
@@ -61,9 +61,6 @@ MEDIUM
Audit accelerated context routines for correct undefined value and odd
representation handling. +Num shouldn't crash, etc.
- +*A general procedure for communicating data up and down the meta-spiral.
- Use this to make a very simple eval knockoff.
-
+ Run MAIN without a temporary file (needed for eval knockoff).
HARD
View
@@ -971,6 +971,7 @@ my class Cursor {
}
my class Match is Cool {
+ method ACCEPTS($) { self // nextsame }
method list () { @( self.Capture ) }
method hash () { %( self.Capture ) }
method flat () { @( self.Capture ) }
View
@@ -26,10 +26,9 @@ use Operator;
augment class NieczaActions {
method quote:rx ($/) { make self.op_for_regex($/, $<quibble>.ast); }
method quote:m ($/) {
- make mkcall($/, '&prefix:<?>',
- ::Op::CallMethod.new(|node($/), name => 'ACCEPTS',
+ make ::Op::CallMethod.new(|node($/), name => 'ACCEPTS',
receiver => self.op_for_regex($/, $<quibble>.ast),
- args => [ mklex($/, '$_') ]));
+ args => [ mklex($/, '$_') ]);
}
# actually we need a few more special cases here.

0 comments on commit 2a38770

Please sign in to comment.