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

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))