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

another JIT tweak

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-14 14:53:20 -06:00
parent 825548f5dc
commit 4d03ffb57d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/racket/src/jit.c
View File

@ -549,6 +549,15 @@ int scheme_is_simple(Scheme_Object *obj, int depth, int just_markless, mz_jit_st
return 1; return 1;
break; break;
case scheme_sequence_type:
if (depth) {
Scheme_Sequence *seq = (Scheme_Sequence *)obj;
return scheme_is_simple(seq->array[seq->count - 1], depth - 1,
just_markless, jitter, stack_start);
}
break;
case scheme_branch_type: case scheme_branch_type:
if (depth) { if (depth) {
Scheme_Branch_Rec *b = (Scheme_Branch_Rec *)obj; Scheme_Branch_Rec *b = (Scheme_Branch_Rec *)obj;