diff options
-rw-r--r-- | libguile/gc.c | 9 | ||||
-rw-r--r-- | libguile/gc.h | 3 |
2 files changed, 2 insertions, 10 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index bb39efd91..8020c2180 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2006, 2008 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2006, 2008, 2009 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -106,13 +106,6 @@ int scm_i_cell_validation_already_running ; void scm_i_expensive_validation_check (SCM cell) { - if (!scm_in_heap_p (cell)) - { - fprintf (stderr, "scm_assert_cell_valid: this object does not live in the heap: %lux\n", - (unsigned long) SCM_UNPACK (cell)); - abort (); - } - /* If desired, perform additional garbage collections after a user * defined number of cell accesses. */ diff --git a/libguile/gc.h b/libguile/gc.h index 4692a4935..3603ff7ef 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -3,7 +3,7 @@ #ifndef SCM_GC_H #define SCM_GC_H -/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 2007, 2008 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -210,7 +210,6 @@ SCM_API SCM scm_gc_live_object_stats (void); SCM_API SCM scm_gc (void); SCM_API void scm_i_gc (const char *what); SCM_API void scm_gc_mark (SCM p); -SCM_API int scm_in_heap_p (SCM value); SCM_API void scm_gc_sweep (void); SCM_API void *scm_malloc (size_t size); |