steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/destructors/destructors.factor
View File

@ -52,10 +52,12 @@ M: disposable dispose
bi bi
] unless-disposed ; ] unless-disposed ;
: dispose, ( obj -- )
[ dispose ] curry [ , ] recover ; inline
: dispose-each ( seq -- ) : dispose-each ( seq -- )
[ [ [ dispose, ] each ] { } make
[ [ dispose ] curry [ , ] recover ] each [ last rethrow ] unless-empty ;
] { } make [ last rethrow ] unless-empty ;
: with-disposal ( object quot -- ) : with-disposal ( object quot -- )
over [ dispose ] curry [ ] cleanup ; inline over [ dispose ] curry [ ] cleanup ; inline