change ERROR: words from throw-foo back to foo.

[factor.git] / core / destructors / destructors.factor

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index fc79a193df5af33bdf2f2854d76afc7d5c1d3400..3e4eaeeec992c44ea31b19221d1d0d221e25e633 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 throw-already-unregistered ] if ;
+    disposables get 2dup in? [ delete ] [ drop already-unregistered ] if ;
 
 PRIVATE>