mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

* gc-card.c ("sweep_card"): remove SCM_MISC_ERROR messages: print

Browse source 
message and abort.

* gc-mark.c ("scm_gc_mark_dependencies"): idem.
This commit is contained in:
Han-Wen Nienhuys 2002-08-08 23:18:23 +00:00
parent da220f2794
commit be3ff02158
4 changed files with 35 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/gc-malloc.c
View file

@ -380,7 +380,10 @@ scm_must_free (void *obj)
if (obj)
free (obj);
else
SCM_MISC_ERROR ("freeing NULL pointer", SCM_EOL);
{
fprintf (stderr,"freeing NULL pointer");
abort ();
}
}
#undef FUNC_NAME