mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

* gc.c (scm_init_storage): Skip registration of cleanup on systems

Browse source 
which lack atexit.  (Is it important that cleanup is made
properly? Maybe we should replace all `exit' with `scm_exit' and
call cleanup there?)
This commit is contained in:
Mikael Djurfeldt 1999-08-30 02:13:45 +00:00
parent d2362355d5
commit a18bcd0e5f
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc.c
View file

@ -1904,7 +1904,9 @@ scm_init_storage (scm_sizet init_heap_size)
if (!scm_port_table) if (!scm_port_table)
return 1; return 1;
#ifdef HAVE_ATEXIT
atexit (cleanup); atexit (cleanup);
#endif
scm_undefineds = scm_cons (SCM_UNDEFINED, SCM_EOL); scm_undefineds = scm_cons (SCM_UNDEFINED, SCM_EOL);
SCM_SETCDR (scm_undefineds, scm_undefineds); SCM_SETCDR (scm_undefineds, scm_undefineds);