destructors: using ?delete in unregister-disposable.

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index 2196d4f1fbe591cbecca638f9ff424d21ca2ecce..9571d0fb1b141c144c6eb82694934c47db1401f1 100755 (executable)
--- 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>