Skip to content

Instantly share code, notes, and snippets.

@usev6
Created August 29, 2023 06:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save usev6/020176b7f8177f8c08256c01e7f4b917 to your computer and use it in GitHub Desktop.
Save usev6/020176b7f8177f8c08256c01e7f4b917 to your computer and use it in GitHub Desktop.
Unbreak JVM build
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index e87782c80..d56c41667 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -1107,12 +1107,12 @@ role STDActions {
if !$in-fresh-line {
if $strval ~~ /\n/ {
my $strbox := nqp::box_s(nqp::x(" ", -$indent) ~ nqp::unbox_s($strval), $world.find_single_symbol_in_setting("Str"));
- $strval := nqp::unbox_s($strbox.indent($indent));
+ $strval := nqp::unbox_s($strbox.indent(nqp::box_i($indent, $world.find_single_symbol_in_setting("Int"))));
$in-fresh-line := 1;
return $world.add_string_constant($strval);
}
} else {
- $strval := nqp::unbox_s($strval.indent($indent));
+ $strval := nqp::unbox_s($strval.indent(nqp::box_i($indent, $world.find_single_symbol_in_setting("Int"))));
return $world.add_string_constant($strval);
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment