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

fix internal function names

Browse Source
This commit is contained in:
Matthew Flatt 2017-01-20 09:17:44 -07:00
parent 80e8e0f9e0
commit d0b5de398e
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/racket/src/optimize.c
View File

@ -3040,11 +3040,11 @@ static int is_nonsaving_primitive(Scheme_Object *rator, int n)
return 0; return 0;
} }
static int is_allways_escaping_primitive(Scheme_Object *rator) static int is_always_escaping_primitive(Scheme_Object *rator)
{ {
if (SCHEME_PRIMP(rator) if (SCHEME_PRIMP(rator)
&& (SCHEME_PRIM_PROC_OPT_FLAGS(rator) & SCHEME_PRIM_ALWAYS_ESCAPES)) { && (SCHEME_PRIM_PROC_OPT_FLAGS(rator) & SCHEME_PRIM_ALWAYS_ESCAPES)) {
return 1; return 1;
} }
return 0; return 0;
} }
@ -3935,7 +3935,7 @@ static Scheme_Object *finish_optimize_any_application(Scheme_Object *app, Scheme
if (SAME_OBJ(rator, scheme_void_proc)) if (SAME_OBJ(rator, scheme_void_proc))
return make_discarding_sequence(app, scheme_void, info); return make_discarding_sequence(app, scheme_void, info);
if (is_allways_escaping_primitive(rator)) { if (is_always_escaping_primitive(rator)) {
info->escapes = 1; info->escapes = 1;
} }

6
racket/src/racket/src/sfs.c
View File

@ -1185,7 +1185,7 @@ static Scheme_Object *begin_for_syntax_sfs(Scheme_Object *data, SFS_Info *info)
/* closures */ /* closures */
/*========================================================================*/ /*========================================================================*/
static Scheme_Object *sfs_closure(Scheme_Object *expr, SFS_Info *info, int self_pos) static Scheme_Object *sfs_lambda(Scheme_Object *expr, SFS_Info *info, int self_pos)
{ {
Scheme_Lambda *data = (Scheme_Lambda *)expr; Scheme_Lambda *data = (Scheme_Lambda *)expr;
Scheme_Object *code; Scheme_Object *code;
@ -1422,7 +1422,7 @@ Scheme_Object *scheme_sfs_expr(Scheme_Object *expr, SFS_Info *info, int closure_
expr = sfs_wcm(expr, info); expr = sfs_wcm(expr, info);
break; break;
case scheme_lambda_type: case scheme_lambda_type:
expr = sfs_closure(expr, info, closure_self_pos); expr = sfs_lambda(expr, info, closure_self_pos);
break; break;
case scheme_let_value_type: case scheme_let_value_type:
expr = sfs_let_value(expr, info); expr = sfs_let_value(expr, info);
@ -1441,7 +1441,7 @@ Scheme_Object *scheme_sfs_expr(Scheme_Object *expr, SFS_Info *info, int closure_
Scheme_Closure *c = (Scheme_Closure *)expr; Scheme_Closure *c = (Scheme_Closure *)expr;
if (ZERO_SIZED_CLOSUREP(c)) { if (ZERO_SIZED_CLOSUREP(c)) {
Scheme_Object *code; Scheme_Object *code;
code = sfs_closure((Scheme_Object *)c->code, info, closure_self_pos); code = sfs_lambda((Scheme_Object *)c->code, info, closure_self_pos);
if (SAME_TYPE(SCHEME_TYPE(code), scheme_begin0_sequence_type)) { if (SAME_TYPE(SCHEME_TYPE(code), scheme_begin0_sequence_type)) {
Scheme_Sequence *seq = (Scheme_Sequence *)code; Scheme_Sequence *seq = (Scheme_Sequence *)code;
c->code = (Scheme_Lambda *)seq->array[0]; c->code = (Scheme_Lambda *)seq->array[0];