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

removing dead code in fun.c

Browse Source
This commit is contained in:
Claire Alvis 2014-04-15 14:49:15 -04:00 committed by Matthew Flatt
parent 1c0c24cb8f
commit a283f3d804
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/src/racket/src/fun.c
View File

@ -191,8 +191,6 @@ static Scheme_Object *current_prompt_read(int, Scheme_Object **);
static Scheme_Object *current_read(int, Scheme_Object **);
static Scheme_Object *current_get_read_input_port(int, Scheme_Object **);
static Scheme_Object *chaperone_not_undefined (int argc, Scheme_Object *argv[]);
static Scheme_Object *chaperone_wrap_cc_guard(Scheme_Object *obj, Scheme_Object *proc);
static Scheme_Object *do_cc_guard(Scheme_Object *v, Scheme_Object *cc_guard, Scheme_Object *chaperone);
@ -672,7 +670,7 @@ scheme_init_fun (Scheme_Env *env)
void
scheme_init_unsafe_fun (Scheme_Env *env)
{
Scheme_Object *o, *a[1];
Scheme_Object *o;
REGISTER_SO(scheme_check_not_undefined_proc);
o = scheme_make_prim_w_arity(scheme_check_not_undefined, "check-not-unsafe-undefined", 2, 2);
@ -2561,12 +2559,6 @@ scheme_check_not_undefined (int argc, Scheme_Object *argv[])
return argv[0];
}
Scheme_Object *
chaperone_not_undefined (int argc, Scheme_Object *argv[])
{
return scheme_chaperone_not_undefined(argv[0]);
}
static Scheme_Object *
procedure_p (int argc, Scheme_Object *argv[])
{