From 87d65d66d638fbf7866dfff190a58728a93877e9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 6 Mar 2013 09:16:43 -0800
Subject: [PATCH] destructors: adding dispose,.

---
 core/destructors/destructors.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index 697bc2eeef..0cb15ad40a 100755
--- 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