summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-11-02 22:47:36 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-11-02 22:47:36 +0000
commit5e1e20c89c43d83e850732796508e628ee2e2995 (patch)
treea6c8889a9ee59a51cc2b0928ef9f06fc8eebbd09 /libguile/inline.h
parent7dab4b370ca85e35e2c938d45e30c97e564d541b (diff)
downloadguile-5e1e20c89c43d83e850732796508e628ee2e2995.tar.gz
(scm_cell, scm_double_cell): Don't use C99 variable
declarations.
Diffstat (limited to 'libguile/inline.h')
-rw-r--r--libguile/inline.h16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/inline.h b/libguile/inline.h
index d3ba8dfe5..703e1c6de 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -63,11 +63,6 @@ SCM_C_INLINE
SCM
scm_cell (scm_t_bits car, scm_t_bits cdr)
{
- if (scm_gc_running_p)
- {
- abort();
- }
-
SCM z;
/* We retrieve the SCM pointer only once since the call to
SCM_FREELIST_LOC will be slightly expensive when we support
@@ -80,6 +75,11 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
*/
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
@@ -166,14 +166,14 @@ SCM
scm_double_cell (scm_t_bits car, scm_t_bits cbr,
scm_t_bits ccr, scm_t_bits cdr)
{
+ SCM z;
+ SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2);
+
if (scm_gc_running_p)
{
abort();
}
- SCM z;
- SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2);
-
if (scm_is_null (*freelist))
z = scm_gc_for_newcell (&scm_i_master_freelist2, freelist);
else