From a18bcd0e5fd60d285d78466ca436eab3e62ba9e1 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 30 Aug 1999 02:13:45 +0000 Subject: [PATCH] * gc.c (scm_init_storage): Skip registration of cleanup on systems which lack atexit. (Is it important that cleanup is made properly? Maybe we should replace all `exit' with `scm_exit' and call cleanup there?) --- libguile/gc.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/libguile/gc.c b/libguile/gc.c index c383836d3..48396043f 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -1904,7 +1904,9 @@ scm_init_storage (scm_sizet init_heap_size) if (!scm_port_table) return 1; +#ifdef HAVE_ATEXIT atexit (cleanup); +#endif scm_undefineds = scm_cons (SCM_UNDEFINED, SCM_EOL); SCM_SETCDR (scm_undefineds, scm_undefineds);