Provide two versions for tam-release, one with and one without finalization.externals/tamexternals/pam

1 files changed, 15 insertions, 4 deletions

diff --git a/tam.el b/tam.el
index d554db2..fd4637e 100644
--- a/tam.el
+++ b/tam.el
@@ -431,17 +431,28 @@ Moves object to live list."
   (tam-claim/inline pool))
 
 (defsubst tam-release/inline (pool idx)
-  "Release object at index IDX of POOL."
+  "Release object at index IDX of POOL.
+User is responsible for any required finalization.
+Inline version"
+  (tam--free-slot pool (tam-pool-get pool idx))
+  nil)
+
+(defsubst tam-release-finalize/inline (pool idx)
+  "Release object at index IDX of POOL and invoke specified finalizer."
   (let ((s (tam-pool-get pool idx))
 	(reset (tam--pool-reset pool)))
     (tam--free-slot pool s)
-    (when reset
-      (funcall reset (tam--slot-contents s)))
+    (funcall reset (tam--slot-contents s))
     nil))
 
 (defun tam-release (pool idx)
-  "Release object at index IDX of POOL."
+  "Release object at index IDX of POOL.
+User is responsible for any required finalization."
   (tam-release/inline pool idx))
 
+(defun tam-release-finalize (pool idx)
+  "Release object at index IDX of POOL and invoke specified finalizer."
+  (tam-release-finalize/inline pool idx))
+
 (provide 'tam)
 ;;; tam.el ends here