destructors: adding dispose,.

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index 697bc2eeefa04feace8d4f47358390804cbabc45..0cb15ad40ac3d529ba5d00977e99d63855ce8a85 100755 (executable)
--- a/core/destructors/destructors.factor
+++ b/core/destructors/destructors.factor
@@ -52,10 +52,12 @@ M: disposable dispose
         bi
     ] unless-disposed ;
 
+: dispose, ( obj -- )
+    [ dispose ] curry [ , ] recover ; inline
+
 : dispose-each ( seq -- )
-    [
-        [ [ dispose ] curry [ , ] recover ] each
-    ] { } make [ last rethrow ] unless-empty ;
+    [ [ dispose, ] each ] { } make
+    [ last rethrow ] unless-empty ;
 
 : with-disposal ( object quot -- )
     over [ dispose ] curry [ ] cleanup ; inline