summaryrefslogtreecommitdiff
path: root/libguile/gc-mark.c
diff options
context:
space:
mode:
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