diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d index f026bc56e..a08462d40 100644 --- a/src/c/alloc_2.d +++ b/src/c/alloc_2.d @@ -35,7 +35,7 @@ finalize(cl_object o, cl_object data) CL_NEWENV_BEGIN { switch (type_of(o)) { #ifdef ENABLE_DLOPEN - case t_codeblock: { + case t_codeblock: cl_mapc(2, @'si::unlink-symbol', o->cblock.links); if (o->cblock.handle != NULL) { printf("\n;;; Freeing library %s\n", o->cblock.name? @@ -47,7 +47,6 @@ finalize(cl_object o, cl_object data) #endif break; #endif - } case t_stream: if (o->stream.file != NULL) fclose(o->stream.file);