From 5618cc648bb11f46ec02cc84fab7afa1be03e59d Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@juanjo-imac.local>
Date: Thu, 1 Oct 2009 11:36:34 +0200
Subject: [PATCH] src/c/threads.d: we cannot create locks until the environment
 is set up

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

diff --git a/src/c/threads.d b/src/c/threads.d
index 2406f0881..cacd68394 100644
--- a/src/c/threads.d
+++ b/src/c/threads.d
@@ -860,7 +860,6 @@ init_threads(cl_env_ptr env)
 	cl_object process;
 	pthread_t main_thread;
 
-        cl_core.global_lock = ecl_make_lock(@'si::package-lock', 0);
 	cl_core.processes = OBJNULL;
 
 	/* We have to set the environment before any allocation takes place,
@@ -898,5 +897,6 @@ init_threads(cl_env_ptr env)
 
 	env->own_process = process;
 
+        cl_core.global_lock = ecl_make_lock(@'si::package-lock', 0);
 	cl_core.processes = ecl_list1(process);
 }