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

Use racket/*' instead of scheme/*' in gracket etc.

Browse Source
This commit is contained in:
Eli Barzilay 2011-10-13 17:35:20 -04:00
parent 29643f8120
commit 7f8540949d
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gracket/grmain.c
View File

@ -45,7 +45,7 @@ static void pre_filter_cmdline_arguments(int *argc, char ***argv);
#define INITIAL_BIN_TYPE "ri"
#define CMDLINE_STDIO_FLAG
#define INITIAL_NAMESPACE_MODULE "scheme/gui/init"
#define INITIAL_NAMESPACE_MODULE "racket/gui/init"
#define GRAPHICAL_REPL
# include "../racket/main.c"

2
src/mzcom/mzobj.cxx
View File

@ -161,7 +161,7 @@ void setupSchemeEnv(Scheme_Env *in_env)
// initialize namespace
scheme_namespace_require(scheme_intern_symbol("scheme"));
scheme_namespace_require(scheme_intern_symbol("racket"));
// set up exception trapping

4
src/racket/main.c
View File

@ -391,13 +391,13 @@ static void do_scheme_rep(Scheme_Env *env, FinishArgs *fa)
#ifdef GRAPHICAL_REPL
if (!fa->a->alternate_rep) {
a[0] = scheme_intern_symbol("mred/mred");
a[0] = scheme_intern_symbol("racket/gui/init");
a[1] = scheme_intern_symbol("graphical-read-eval-print-loop");
ending_newline = 0;
} else
#endif
{
a[0] = scheme_intern_symbol("scheme/base");
a[0] = scheme_intern_symbol("racket/base");
a[1] = scheme_intern_symbol("read-eval-print-loop");
}