Provide $*moreinput for the REPL.

rakudo · Mar 26, 2015 · d7b0597 · d7b0597
1 parent 91b292d
commit d7b0597
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -46,6 +46,16 @@ class Perl6::Compiler is HLL::Compiler {
             nqp::say(~$value);
         }
     }
+
+    method interactive(*%adverbs) {
+        my $*moreinput := sub ($cursor) {
+            my $more := nqp::readlineintfh(nqp::getstdin, '* ');
+            $cursor.orig($more);
+            $cursor.target($more);
+        }
+        my $super := nqp::findmethod(HLL::Compiler, 'interactive');
+        $super(self, |%adverbs);
+    }
 
     method interactive_exception($ex) {
         my $payload := nqp::getpayload($ex);