mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed a couple of typos in ecl_set_finalizer_unprotected().

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-05 12:31:11 +02:00
parent 88f663ddb6
commit 8b57696625
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/alloc_2.d
View file

@ -552,6 +552,8 @@ si_get_finalizer(cl_object o)
void
ecl_set_finalizer_unprotected(cl_object o, cl_object finalizer)
{
GC_finalization_proc ofn;
void *odata;
if (finalizer == Cnil) {
GC_register_finalizer_no_order(o, (GC_finalization_proc)0,
0, &ofn, &odata);
@ -567,8 +569,6 @@ cl_object
si_set_finalizer(cl_object o, cl_object finalizer)
{
const cl_env_ptr the_env = ecl_process_env();
GC_finalization_proc ofn;
void *odata;
ecl_disable_interrupts_env(the_env);
ecl_set_finalizer_unprotected(o, finalizer);
ecl_enable_interrupts_env(the_env);