diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-05-15 09:45:10 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-05-15 09:45:10 +0000 |
commit | 7c33806ae676601f902dbdc0f39c1f0828d68951 (patch) | |
tree | 30526d3249f03d715b5703227abdd263148053bc /libguile/gc.h | |
parent | 11bbab474a77ef0c190fd494db4ac81f5c8febdd (diff) | |
download | guile-7c33806ae676601f902dbdc0f39c1f0828d68951.tar.gz |
* Make SCM_DEBUG_CELL_ACCESSES=1 work with GUILE_DEBUG_FREELIST.
Diffstat (limited to 'libguile/gc.h')
-rw-r--r-- | libguile/gc.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gc.h b/libguile/gc.h index 150074f37..0fe4d513f 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -261,7 +261,7 @@ typedef unsigned long scm_c_bvec_limb_t; a freelist of its own. */ #define SCM_NEWCELL(_into) \ do { \ - if (SCM_IMP (scm_freelist)) \ + if (SCM_NULLP (scm_freelist)) \ { \ _into = scm_gc_for_newcell (&scm_master_freelist, \ &scm_freelist); \ @@ -276,7 +276,7 @@ typedef unsigned long scm_c_bvec_limb_t; } while(0) #define SCM_NEWCELL2(_into) \ do { \ - if (SCM_IMP (scm_freelist2)) \ + if (SCM_NULLP (scm_freelist2)) \ { \ _into = scm_gc_for_newcell (&scm_master_freelist2, \ &scm_freelist2); \ |