mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Copy srcprop implementation from the 1.9 branch, fixes a deadlock.

Browse source
This commit is contained in:
Ludovic Courtès 2008-04-16 11:58:42 +02:00
parent f2fd8962e5
commit 5a606a8dca
4 changed files with 86 additions and 106 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -3039,7 +3039,7 @@ scm_eval_body (SCM code, SCM env)
do { \
SCM_SET_ARGSREADY (debug);\
if (scm_check_apply_p && SCM_TRAPS_P)\
if (SCM_APPLY_FRAME_P || (SCM_TRACE_P && PROCTRACEP (proc)))\
if (SCM_APPLY_FRAME_P || (SCM_TRACE_P && SCM_PROCTRACEP (proc)))\
{\
SCM tmp, tail = scm_from_bool(SCM_TRACED_FRAME_P (debug)); \
SCM_SET_TRACED_FRAME (debug); \