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

destructors: using ?delete in unregister-disposable.

char-rename
John Benediktsson 2017-02-07 13:31:43 -08:00
parent de48558d12
commit 8dfbbc7cf2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/destructors/destructors.factor
View File

@ -19,7 +19,7 @@ SLOT: continuation
disposables get adjoin ; disposables get adjoin ;
: unregister-disposable ( obj -- ) : unregister-disposable ( obj -- )
disposables get 2dup in? [ delete ] [ drop already-unregistered ] if ; dup disposables get ?delete [ drop ] [ already-unregistered ] if ;
PRIVATE> PRIVATE>