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

remove unused variable

Browse Source
This commit is contained in:
Matthew Flatt 2015-09-19 08:52:19 -06:00
parent ee9d797906
commit a75bdbf0a1
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/compile.c
View File

@ -1169,7 +1169,7 @@ if_expand(Scheme_Object *orig_form, Scheme_Comp_Env *env, Scheme_Expand_Info *er
static Scheme_Object *
with_cont_mark_syntax(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Compile_Info *rec, int drec)
{
Scheme_Object *key, *val, *expr, *name, *orig_form = form, *value_name;
Scheme_Object *key, *val, *expr, *value_name;
Scheme_Compile_Info recs[3];
Scheme_With_Continuation_Mark *wcm;
int len;
@ -1194,8 +1194,6 @@ with_cont_mark_syntax(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Compile_
scheme_compile_rec_done_local(rec, drec);
name = scheme_check_name_property(orig_form, value_name);
scheme_init_compile_recs(rec, drec, recs, 3);
key = scheme_compile_expr(key, env, recs, 0);