diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-03-10 18:08:12 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-03-10 18:08:12 +0000 |
commit | 94d375b5a77578f636494655afafde29eb7f8972 (patch) | |
tree | d7cb3c58069803ee6107eb5e16fe8a62af8e94f6 | |
parent | 1a8fdd7e12a7248ea51b1292bd350b708538d95a (diff) | |
download | guile-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.h | 10 |
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 |