mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 09:10:41 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixed ecl_init_env(): field env->cleanup only exists in multithreaded ECL.

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-10-08 12:10:09 +02:00
parent e90b2f1212
commit 831bf2488b
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/main.d
View file

@ -123,7 +123,7 @@ ecl_set_option(int option, cl_fixnum value)
ecl_option_values[ECL_OPT_BOOTED]) {
FEerror("Cannot change option ~D while ECL is running",
1, ecl_make_fixnum(option));
}
}
ecl_option_values[option] = value;
}
}
@ -132,9 +132,10 @@ void
ecl_init_env(cl_env_ptr env)
{
env->c_env = NULL;
#if !defined(ECL_THREADS)
env->own_process = ECL_NIL;
#if defined(ECL_THREADS)
env->cleanup = 0;
#else
env->own_process = ECL_NIL;
#endif
env->string_pool = ECL_NIL;