From 8dfbbc7cf2913f779ce488f0a8a712c921c82d0d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 7 Feb 2017 13:31:43 -0800 Subject: [PATCH] destructors: using ?delete in unregister-disposable. --- core/destructors/destructors.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor index 2196d4f1fb..9571d0fb1b 100755 --- a/core/destructors/destructors.factor +++ b/core/destructors/destructors.factor @@ -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>