From 1201a982fa33eabf30cf1cf788ac7de22bd4fdd3 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 14 Mar 2000 09:03:32 +0000 Subject: [PATCH] * pairs.h (SCM_NEWCELL, SCM_NEWCELL2): Use new style freelists. --- libguile/pairs.h | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/libguile/pairs.h b/libguile/pairs.h index 6e12c44fa..6f28cb289 100644 --- a/libguile/pairs.h +++ b/libguile/pairs.h @@ -181,24 +181,24 @@ typedef SCM huge *SCMPTR; #else #define SCM_NEWCELL(_into) \ do { \ - if (SCM_IMP (scm_freelist)) \ - _into = scm_gc_for_newcell (1, &scm_freelist);\ + if (SCM_IMP (scm_freelist.cells)) \ + _into = scm_gc_for_newcell (&scm_freelist);\ else \ { \ - _into = scm_freelist; \ - scm_freelist = SCM_CDR (scm_freelist);\ + _into = scm_freelist.cells; \ + scm_freelist.cells = SCM_CDR (scm_freelist.cells);\ SCM_SETCAR (_into, scm_tc16_allocated); \ ++scm_cells_allocated; \ } \ } while(0) #define SCM_NEWCELL2(_into) \ do { \ - if (SCM_IMP (scm_freelist2)) \ - _into = scm_gc_for_newcell (2, &scm_freelist2);\ + if (SCM_IMP (scm_freelist2.cells)) \ + _into = scm_gc_for_newcell (&scm_freelist2);\ else \ { \ - _into = scm_freelist2; \ - scm_freelist2 = SCM_CDR (scm_freelist2);\ + _into = scm_freelist2.cells; \ + scm_freelist2.cells = SCM_CDR (scm_freelist2.cells);\ SCM_SETCAR (_into, scm_tc16_allocated); \ scm_cells_allocated += 2; \ } \