no error if trying to return with full pool: this can happen if we ex…

…it session in the middle of a call.
pharo-project · Nov 6, 2019 · 5f7bf64 · 5f7bf64
1 parent 6d13db7
commit 5f7bf64
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/ThreadedFFI/TFPool.class.st b/src/ThreadedFFI/TFPool.class.st
@@ -86,7 +86,9 @@ TFPool >> returnOne: anObject [
 		| index |
 		index := pointer - 1. 
 		index > 0 ifFalse: [ 
-			^ self error: 'Returning an object but pool is full' ]. 
+			"This can happen if a new session starts in middle of a call."
+			'Returning an object but pool is full' crTrace. 
+			^ self  ]. 
 		elements at: index put: anObject.
 		pointer := index ]
 ]