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

View File

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