diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 22:47:36 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 22:47:36 +0000 |
commit | 5e1e20c89c43d83e850732796508e628ee2e2995 (patch) | |
tree | a6c8889a9ee59a51cc2b0928ef9f06fc8eebbd09 /libguile/inline.h | |
parent | 7dab4b370ca85e35e2c938d45e30c97e564d541b (diff) | |
download | guile-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.h | 16 |
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 |