From 4274024b05d58fa35ca0ff194c8b8f4b0e17636a Mon Sep 17 00:00:00 2001
From: Esteban Lorenzano <estebanlm@gmail.com>
Date: Wed, 6 Nov 2019 18:26:15 +0100
Subject: [PATCH] making pool to initialize lazy (to allow updates)

---
 src/ThreadedFFI/TFRunner.class.st | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/ThreadedFFI/TFRunner.class.st b/src/ThreadedFFI/TFRunner.class.st
index 3916910..9d4df3c 100644
--- a/src/ThreadedFFI/TFRunner.class.st
+++ b/src/ThreadedFFI/TFRunner.class.st
@@ -33,9 +33,7 @@ TFRunner >> doInitialize [
 
 	callbackInvocationStack := Stack new.
 	stackProtect := Semaphore forMutualExclusion.
-	semaphorePool :=  TFPool 
-		newProvider: [ TFExternalSemaphore new ] 
-		size: self semaphorePoolSize
+	semaphorePool :=  nil
 ]
 
 { #category : #executing }
@@ -172,7 +170,10 @@ TFRunner >> returnCallback: aCallbackInvocation [
 { #category : #private }
 TFRunner >> semaphorePool [
 	
-	^ semaphorePool
+	^ semaphorePool ifNil: [ 
+		semaphorePool := TFPool
+			newProvider: [ TFExternalSemaphore new ] 
+			size: self semaphorePoolSize ]
 ]
 
 { #category : #private }