We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent bec0eba commit 2bd8dcbCopy full SHA for 2bd8dcb
src/HLL/Compiler.pm
@@ -418,6 +418,7 @@ class HLL::Compiler {
418
my $target := nqp::lc(%adverbs<target>);
419
my $result := $source;
420
my $stderr := pir::getinterp().stderr_handle;
421
+ my $stdin := pir::getinterp().stdin_handle;
422
for self.stages() {
423
my $timestamp := nqp::time_n();
424
$result := self."$_"($result, |%adverbs);
@@ -427,6 +428,10 @@ class HLL::Compiler {
427
428
$stderr.print(nqp::sprintf(" %11d %11d %9d %9d", self.vmstat()))
429
if %adverbs<stagestats> > 1;
430
$stderr.print("\n");
431
+ if %adverbs<stagestats> > 2 {
432
+ $stderr.print("continue> ");
433
+ $stdin.readline();
434
+ }
435
}
436
last if $_ eq $target;
437
0 commit comments