summaryrefslogtreecommitdiff
path: root/libguile/environments.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2006-10-09 23:40:48 +0000
committerKevin Ryde <user42@zip.com.au>2006-10-09 23:40:48 +0000
commit8ab3d8a0681777eb329ac533be51d557267ccf32 (patch)
tree6c3c7489e6862d6c2900c79dcd540a008ace7de9 /libguile/environments.c
parent121a80826c8279dafa5969df6ef66c1a248068d3 (diff)
downloadguile-8ab3d8a0681777eb329ac533be51d557267ccf32.tar.gz
merge from 1.8 branch
Diffstat (limited to 'libguile/environments.c')
-rw-r--r--libguile/environments.c7
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;
}