diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-01-24 23:41:14 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-01-24 23:41:14 +0000 |
commit | 76da80e7881947ebcdb647e5ce4be029fece29f2 (patch) | |
tree | 9a56249fecf0002eefc25c6a0bfeb53a2b277d7f /libguile/gc-mark.c | |
parent | a54a94b39707f47a1f30533bcf7664094d65d073 (diff) | |
download | guile-76da80e7881947ebcdb647e5ce4be029fece29f2.tar.gz |
Reverted changed from 2005/01/24 19:14:54, which was a commit to the
wrong branch. Sorry.
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r-- | libguile/gc-mark.c | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c index 3373cc882..95ac82088 100644 --- a/libguile/gc-mark.c +++ b/libguile/gc-mark.c @@ -144,7 +144,6 @@ Perhaps this would work better with an explicit markstack? */ - void scm_gc_mark_dependencies (SCM p) #define FUNC_NAME "scm_gc_mark_dependencies" @@ -155,7 +154,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)) { @@ -415,16 +414,15 @@ gc_mark_loop: abort(); } } - - if (SCM_GC_MARK_P (ptr)) - { - return; - } - SCM_SET_GC_MARK (ptr); + 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 |