diff --git a/src/c/load.d b/src/c/load.d index 91b64a1ab..062ad42b8 100755 --- a/src/c/load.d +++ b/src/c/load.d @@ -259,7 +259,14 @@ ecl_library_open(cl_object filename, bool force_reload) { block = other; } else { si_set_finalizer(block, Ct); +#if 0 + if (block->cblock.handle != NULL) + cl_core.libraries = CONS(block, cl_core.libraries); + else + ecl_library_close(block); +#else cl_core.libraries = CONS(block, cl_core.libraries); +#endif } } return block;