destructors: adding dispose,.

db4
John Benediktsson 2013-03-06 09:16:43 -08:00
parent a60b49630f
commit 87d65d66d6
1 changed files with 5 additions and 3 deletions

View File

@ -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