diff options
author | Kevin Ryde <user42@zip.com.au> | 2006-10-09 23:40:48 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2006-10-09 23:40:48 +0000 |
commit | 8ab3d8a0681777eb329ac533be51d557267ccf32 (patch) | |
tree | 6c3c7489e6862d6c2900c79dcd540a008ace7de9 /libguile/environments.c | |
parent | 121a80826c8279dafa5969df6ef66c1a248068d3 (diff) | |
download | guile-8ab3d8a0681777eb329ac533be51d557267ccf32.tar.gz |
merge from 1.8 branch
Diffstat (limited to 'libguile/environments.c')
-rw-r--r-- | libguile/environments.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/environments.c b/libguile/environments.c index a94f119cd..5d15f36bc 100644 --- a/libguile/environments.c +++ b/libguile/environments.c @@ -687,9 +687,10 @@ core_environments_unobserve (SCM env, SCM observer) if (scm_is_eq (first, observer)) { /* Remove the first observer */ - handling_weaks - ? SCM_SET_CORE_ENVIRONMENT_WEAK_OBSERVERS (env, rest) - : SCM_SET_CORE_ENVIRONMENT_OBSERVERS (env, rest); + if (handling_weaks) + SCM_SET_CORE_ENVIRONMENT_WEAK_OBSERVERS (env, rest); + else + SCM_SET_CORE_ENVIRONMENT_OBSERVERS (env, rest); return; } |