suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change gracket -z' to just use read-eval-print-loop'

Browse Source 
instead of `textual-read-eval-print-loop'
This commit is contained in:
Matthew Flatt 2011-01-24 19:28:50 -07:00
parent fb406390b7
commit 5e3dbbc3f8
3 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribblings/gui/miscwin-funcs.scrbl
View File

@ -182,7 +182,7 @@ The keymap for the read-eval-print loop's editor is initialized by
@defproc[(textual-read-eval-print-loop) void?]{ @defproc[(textual-read-eval-print-loop) void?]{
Similar to @racket[read-eval-print-loop], except that evaluation uses 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 The @racket[current-prompt-read] parameter is used in the current
thread to read input. The result is queued for evaluation and thread to read input. The result is queued for evaluation and

2
src/racket/cmdline.inc
View File

@ -1269,7 +1269,7 @@ static int run_from_cmd_line(int argc, char *_argv[],
" -c, --no-compiled : Disable loading of compiled files\n" " -c, --no-compiled : Disable loading of compiled files\n"
" -q, --no-init-file : Skip load of " INIT_FILENAME " for -i\n" " -q, --no-init-file : Skip load of " INIT_FILENAME " for -i\n"
# ifdef CMDLINE_STDIO_FLAG # 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 # endif
" -I <path> : Set <init-lib> to <path>\n" " -I <path> : Set <init-lib> to <path>\n"
" -X <dir>, --collects <dir> : Main collects at <dir>\n" " -X <dir>, --collects <dir> : Main collects at <dir>\n"

17
src/racket/main.c
View File

@ -371,18 +371,17 @@ static void do_scheme_rep(Scheme_Env *env, FinishArgs *fa)
int ending_newline = 1; int ending_newline = 1;
#ifdef GRAPHICAL_REPL #ifdef GRAPHICAL_REPL
if (fa->a->alternate_rep) { if (!fa->a->alternate_rep) {
a[0] = scheme_intern_symbol("mred/mred");
a[1] = scheme_intern_symbol("textual-read-eval-print-loop");
} else {
a[0] = scheme_intern_symbol("mred/mred"); a[0] = scheme_intern_symbol("mred/mred");
a[1] = scheme_intern_symbol("graphical-read-eval-print-loop"); a[1] = scheme_intern_symbol("graphical-read-eval-print-loop");
} ending_newline = 0;
ending_newline = 0; } else
#else
a[0] = scheme_intern_symbol("scheme/base");
a[1] = scheme_intern_symbol("read-eval-print-loop");
#endif #endif
{
a[0] = scheme_intern_symbol("scheme/base");
a[1] = scheme_intern_symbol("read-eval-print-loop");
}
rep = scheme_dynamic_require(2, a); rep = scheme_dynamic_require(2, a);
if (rep) { if (rep) {