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

fix logging problem

Browse Source 
svn: r16868
This commit is contained in:
Matthew Flatt 2009-11-18 15:37:18 +00:00
parent beec840463
commit 079c2d7851
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/eval.c
View File

@ -145,6 +145,9 @@
#endif
#ifdef FUTURES_ENABLED
# include "future.h"
#else
# define LOG_PRIM_START(x) /* empty */
# define LOG_PRIM_END(x) /* empty */
#endif
#define EMBEDDED_DEFINES_START_ANYWHERE 0
@ -7859,10 +7862,11 @@ scheme_do_eval(Scheme_Object *obj, int num_rands, Scheme_Object **rands,
}
f = prim->prim_val;
LOG_PRIM_START(f);
LOG_PRIM_START(f);
v = f(num_rands, rands, (Scheme_Object *)prim);
LOG_PRIM_END(f);
LOG_PRIM_END(f);
DEBUG_CHECK_TYPE(v);
} else if (type == scheme_closure_type) {
Scheme_Closure_Data *data;

4
src/mzscheme/src/schnapp.inc
View File

@ -31,9 +31,9 @@ static MZ_INLINE Scheme_Object *PRIM_APPLY_NAME_FAST(Scheme_Object *rator,
}
f = (Scheme_Primitive_Closure_Proc *)prim->prim_val;
LOG_PRIM_START(f);
LOG_PRIM_START(f);
v = f(argc, argv, (Scheme_Object *)prim);
LOG_PRIM_END(f);
LOG_PRIM_END(f);
#if PRIM_CHECK_VALUE
if (v == SCHEME_TAIL_CALL_WAITING) {