From b50e36e017cba8a58d98aed794bd326f251de198 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.(none)>
Date: Mon, 26 May 2008 21:42:04 +0200
Subject: [PATCH] Close the library before the error handler changes the block.

---
 src/c/ffi.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/ffi.d b/src/c/ffi.d
index 70d4ff005..5b9b6f6ae 100644
--- a/src/c/ffi.d
+++ b/src/c/ffi.d
@@ -434,8 +434,8 @@ si_load_foreign_module(cl_object filename)
 	output = ecl_library_open(filename, 0);
 	if (output->cblock.handle == NULL)
 	{
-		output = ecl_library_error(output);
 		ecl_library_close(output);
+		output = ecl_library_error(output);
 	}
 OUTPUT:
 #ifdef ECL_THREADS