Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

A bit more inlining to remove all ws -> pos edges

  • Loading branch information...
commit 254e286f484908eb46aa4c7a9d016f4affced836 1 parent 0f5c4a0
Stefan O'Rear authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 v6/tryfile
4 v6/tryfile
View
@@ -241,7 +241,7 @@ token ws {
:my $stub = return self if $startmemo<ws> :exists; #OK
:dba('whitespace')
- \h+ <![\#\s\\]> { @*MEMOS[$¢.pos]<ws> = $startpos; } # common case
+ \h+ <![\#\s\\]> { @*MEMOS[ Q:CgOp { (box Num (cast num (cursor_pos (cast cursor (@ {$¢}))))) } ]<ws> = $startpos; } # common case
|| <?before \w> <?after \w> :::
{ @*MEMOS[$startpos]<ws>:delete; }
<.sorry: "Whitespace is required between alphanumeric tokens"> # must \s+ between words
@@ -256,7 +256,7 @@ token ws {
# NOTE that this is only used in the slow path! The || above is the
# top level separator.
{
- my $pos = $¢.pos;
+ my $pos = Q:CgOp { (box Num (cast num (cursor_pos (cast cursor (@ {$¢}))))) };
my $memo = @*MEMOS[$pos];
if ($pos == $startpos) {
$memo<ws>:delete;
Please sign in to comment.
Something went wrong with that request. Please try again.