diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-30 02:13:45 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-30 02:13:45 +0000 |
commit | a18bcd0e5fd60d285d78466ca436eab3e62ba9e1 (patch) | |
tree | 1988bec7172d772ec8b13b1600c44a403933d162 | |
parent | d2362355d52512aab35c1b6f0c836c35614f182c (diff) | |
download | guile-a18bcd0e5fd60d285d78466ca436eab3e62ba9e1.tar.gz |
* 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?)
-rw-r--r-- | libguile/gc.c | 2 |
1 files changed, 2 insertions, 0 deletions
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); |