summaryrefslogtreecommitdiff
path: root/libguile/gc-mark.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-24 19:14:54 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-24 19:14:54 +0000
commita54a94b39707f47a1f30533bcf7664094d65d073 (patch)
tree69a524a4c3fbb084e1e2fef05da61e1852700909 /libguile/gc-mark.c
parentbe1b896c82273d97b79cd839d7281b46e54920f8 (diff)
downloadguile-a54a94b39707f47a1f30533bcf7664094d65d073.tar.gz
Threading changes.
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r--libguile/gc-mark.c16
1 files changed, 9 insertions, 7 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c
index 95ac82088..3373cc882 100644
--- a/libguile/gc-mark.c
+++ b/libguile/gc-mark.c
@@ -144,6 +144,7 @@ Perhaps this would work better with an explicit markstack?
*/
+
void
scm_gc_mark_dependencies (SCM p)
#define FUNC_NAME "scm_gc_mark_dependencies"
@@ -154,7 +155,7 @@ scm_gc_mark_dependencies (SCM p)
ptr = p;
scm_mark_dependencies_again:
-
+
cell_type = SCM_GC_CELL_TYPE (ptr);
switch (SCM_ITAG7 (cell_type))
{
@@ -414,15 +415,16 @@ gc_mark_loop:
abort();
}
}
-
- if (SCM_GC_MARK_P (ptr))
- {
- return;
- }
+
+ if (SCM_GC_MARK_P (ptr))
+ {
+ return;
+ }
SCM_SET_GC_MARK (ptr);
+
- goto scm_mark_dependencies_again;
+ goto scm_mark_dependencies_again;
}
#undef FUNC_NAME