summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-30 02:13:45 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-30 02:13:45 +0000
commita18bcd0e5fd60d285d78466ca436eab3e62ba9e1 (patch)
tree1988bec7172d772ec8b13b1600c44a403933d162
parentd2362355d52512aab35c1b6f0c836c35614f182c (diff)
downloadguile-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.c2
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);