* 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

@@ -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);