Index: src/libcfa/concurrency/monitor
===================================================================
--- src/libcfa/concurrency/monitor	(revision e5c84881b9bfd32f54aba27ca72ecd7ffb1764ac)
+++ src/libcfa/concurrency/monitor	(revision 8e138da82cb7825087e9c8210a54d331b4d21cfd)
@@ -10,6 +10,6 @@
 // Created On       : Thd Feb 23 12:27:26 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Sat Jul 22 09:59:01 2017
-// Update Count     : 3
+// Last Modified On : Sat Oct  7 18:06:45 2017
+// Update Count     : 10
 //
 
@@ -54,5 +54,4 @@
 void ^?{}( monitor_guard_t & this );
 
-
 struct monitor_dtor_guard_t {
 	monitor_desc * m;
@@ -64,4 +63,10 @@
 void ?{}( monitor_dtor_guard_t & this, monitor_desc ** m, void (*func)() );
 void ^?{}( monitor_dtor_guard_t & this );
+
+static inline forall( dtype T | sized(T) | { void ^?{}( T & mutex ); } )
+void delete( T * th ) {
+	^(*th){};
+	free( th );
+}
 
 //-----------------------------------------------------------------------------