diff --git a/collects/scribblings/gui/miscwin-funcs.scrbl b/collects/scribblings/gui/miscwin-funcs.scrbl index 99c4335e10..3e35e20857 100644 --- a/collects/scribblings/gui/miscwin-funcs.scrbl +++ b/collects/scribblings/gui/miscwin-funcs.scrbl @@ -182,7 +182,7 @@ The keymap for the read-eval-print loop's editor is initialized by @defproc[(textual-read-eval-print-loop) void?]{ Similar to @racket[read-eval-print-loop], except that evaluation uses - a newly created eventspace. + a newly created eventspace like @racket[graphical-read-eval-print-loop]. The @racket[current-prompt-read] parameter is used in the current thread to read input. The result is queued for evaluation and diff --git a/src/racket/cmdline.inc b/src/racket/cmdline.inc index f81ddc352b..5bfc1ac3a6 100644 --- a/src/racket/cmdline.inc +++ b/src/racket/cmdline.inc @@ -1269,7 +1269,7 @@ static int run_from_cmd_line(int argc, char *_argv[], " -c, --no-compiled : Disable loading of compiled files\n" " -q, --no-init-file : Skip load of " INIT_FILENAME " for -i\n" # ifdef CMDLINE_STDIO_FLAG - " -z, --text-repl : Use text read-eval-print loop for -i\n" + " -z, --text-repl : Use text `read-eval-print-loop' for -i\n" # endif " -I : Set to \n" " -X , --collects : Main collects at \n" diff --git a/src/racket/main.c b/src/racket/main.c index 56fa031659..9a76f68a31 100644 --- a/src/racket/main.c +++ b/src/racket/main.c @@ -371,18 +371,17 @@ static void do_scheme_rep(Scheme_Env *env, FinishArgs *fa) int ending_newline = 1; #ifdef GRAPHICAL_REPL - if (fa->a->alternate_rep) { - a[0] = scheme_intern_symbol("mred/mred"); - a[1] = scheme_intern_symbol("textual-read-eval-print-loop"); - } else { + if (!fa->a->alternate_rep) { a[0] = scheme_intern_symbol("mred/mred"); a[1] = scheme_intern_symbol("graphical-read-eval-print-loop"); - } - ending_newline = 0; -#else - a[0] = scheme_intern_symbol("scheme/base"); - a[1] = scheme_intern_symbol("read-eval-print-loop"); + ending_newline = 0; + } else #endif + { + a[0] = scheme_intern_symbol("scheme/base"); + a[1] = scheme_intern_symbol("read-eval-print-loop"); + } + rep = scheme_dynamic_require(2, a); if (rep) {