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

Run dtors in reverse order

db4
Slava Pestov 2008-03-14 17:40:08 -05:00
parent f1cadef89d
commit 16244ab15a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/destructors/destructors.factor
View File

@ -26,11 +26,14 @@ M: destructor dispose
: add-always-destructor ( obj -- ) : add-always-destructor ( obj -- )
<destructor> always-destructors get push ; <destructor> always-destructors get push ;
: dispose-each ( seq -- )
<reversed> [ dispose ] each ;
: do-always-destructors ( -- ) : do-always-destructors ( -- )
always-destructors get [ dispose ] each ; always-destructors get dispose-each ;
: do-error-destructors ( -- ) : do-error-destructors ( -- )
error-destructors get [ dispose ] each ; error-destructors get dispose-each ;
: with-destructors ( quot -- ) : with-destructors ( quot -- )
[ [