get-this-in in drscheme:rep:text%

• (send a-drscheme:rep:text get-this-in) -> input-port

  returns the input port for this repl.