destructors: adding dispose,.

2013-03-06 09:16:43 -08:00 · 2013-03-06 09:16:43 -08:00 · 87d65d66d6
parent a60b49630f
commit 87d65d66d6
1 changed files with 5 additions and 3 deletions
--- 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