summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-03-10 18:08:12 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-03-10 18:08:12 +0000
commit94d375b5a77578f636494655afafde29eb7f8972 (patch)
treed7cb3c58069803ee6107eb5e16fe8a62af8e94f6
parent1a8fdd7e12a7248ea51b1292bd350b708538d95a (diff)
downloadguile-94d375b5a77578f636494655afafde29eb7f8972.tar.gz
(scm_cell, scm_double_cell): Do not check scm_gc_running_p, allocation
during sweeping is OK.
-rw-r--r--libguile/inline.h10
1 files changed, 0 insertions, 10 deletions
diff --git a/libguile/inline.h b/libguile/inline.h
index ce8b99ee4..4334ff4bc 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -69,11 +69,6 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
SCM z;
SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist);
- if (scm_gc_running_p)
- {
- abort();
- }
-
if (scm_is_null (*freelist))
z = scm_gc_for_newcell (&scm_i_master_freelist, freelist);
else
@@ -151,11 +146,6 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
SCM z;
SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2);
- if (scm_gc_running_p)
- {
- abort();
- }
-
if (scm_is_null (*freelist))
z = scm_gc_for_newcell (&scm_i_master_freelist2, freelist);
else