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

remove accidentally committed debugging code

Browse Source 
svn: r15450
This commit is contained in:
Matthew Flatt 2009-07-15 16:08:21 +00:00
parent ba64a8e5c6
commit d4e3ed6c19
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/jit.c
View File

@ -6201,7 +6201,7 @@ static int generate(Scheme_Object *obj, mz_jit_state *jitter, int is_tail, int m
jit_ldxi_p(JIT_R2, JIT_R2, WORDS_TO_BYTES(pos));
CHECK_LIMIT();
JIT_UPDATE_THREAD_RSPTR_IF_NEEDED();
JIT_UPDATE_THREAD_RSPTR_IF_NEEDED();
mz_prepare(1);
jit_pusharg_p(JIT_R2);
(void)mz_finish(make_global_ref);

5
src/mzscheme/src/struct.c
View File

@ -737,11 +737,6 @@ static Scheme_Object *prop_pred(int argc, Scheme_Object **args, Scheme_Object *p
Scheme_Struct_Type *stype;
Scheme_Object *prop = SCHEME_PRIM_CLOSURE_ELS(prim)[0];
if (!args[0]) {
printf("%p\n", prim);
return scheme_false;
}
if (SCHEME_STRUCTP(args[0]))
stype = ((Scheme_Structure *)args[0])->stype;
else if (SAME_TYPE(SCHEME_TYPE(args[0]), scheme_struct_type_type))