RakuAST: workaround for substr error when reporting parse error

rakudo · Mar 5, 2023 · a620d0f · a620d0f
1 parent e3e250c
commit a620d0f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Raku/Grammar.nqp b/src/Raku/Grammar.nqp
@@ -371,6 +371,7 @@ role Raku::Common {
 
         my $prestart := $pos - 40;
         $prestart := 0 if $prestart < 0;
+        $pos := 0 if $pos < 0; #FIXME workaround for when $pos is -3. Need to figure out how to get the real pos
         my $pre := nqp::substr($orig, $prestart, $pos - $prestart);
         $pre    := subst($pre, /.*\n/, "", :global);
         $pre    := '<BOL>' if $pre eq '';