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

remove obsolete reference to '#%mred-kernel

Browse Source 
(cherry picked from commit 1c4722eaee)
This commit is contained in:
Matthew Flatt 2011-07-14 21:13:47 -06:00 committed by Eli Barzilay
parent c4ca803955
commit e1dbfe67e3
2 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribblings/reference/startup.scrbl
View File

@ -44,8 +44,7 @@ On start-up, the top-level environment contains no bindings---not even
that start with @racketidfont{#%} are defined, but they are not meant that start with @racketidfont{#%} are defined, but they are not meant
for direct use, and the set of such modules can change. For example, for direct use, and the set of such modules can change. For example,
the @indexed-racket['#%kernel] module is eventually used to bootstrap the @indexed-racket['#%kernel] module is eventually used to bootstrap
the implemetation of @racketmodname[racket/base], and the implemetation of @racketmodname[racket/base].
@racket['#%mred-kernel] is used for @racketmodname[racket/gui/base].
The first action of Racket or GRacket is to initialize The first action of Racket or GRacket is to initialize
@racket[current-library-collection-paths] to the result of @racket[current-library-collection-paths] to the result of

12
src/racket/src/module.c
View File

@ -3403,18 +3403,10 @@ static Scheme_Module *module_load(Scheme_Object *name, Scheme_Env *env, const ch
m = (Scheme_Module *)scheme_hash_get(env->module_registry->loaded, name); m = (Scheme_Module *)scheme_hash_get(env->module_registry->loaded, name);
if (!m) { if (!m) {
char *mred_note;
if (!strcmp(SCHEME_SYM_VAL(SCHEME_PTR_VAL(name)), "#%mred-kernel")
&& !(scheme_strncmp(scheme_banner(), "Welcome to Racket", 17)))
mred_note = "; need to run in gracket instead of racket";
else
mred_note = "";
scheme_raise_exn(MZEXN_FAIL_CONTRACT, scheme_raise_exn(MZEXN_FAIL_CONTRACT,
"%s: unknown module: %D%s", "%s: unknown module: %D",
who ? who : "require", who ? who : "require",
name, mred_note); name);
return NULL; return NULL;
} }
} }