assocs.extras: Move some often-used words to core

[factor.git] / core / alien / alien.factor

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 5928158333a4ba64fcc005aad08e27b1554a1bbe..f1c9bc043cbf8e948d6e404ed5f2e3cb892ab74e 100644 (file)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -124,7 +124,7 @@ TUPLE: expiry-check object alien ;
     [ alien>> expired? ] [ t ] if* ;
 
 : delete-values ( value assoc -- )
-    [ rot drop = ] with assoc-reject! drop ;
+    [ nipd = ] with assoc-reject! drop ;
 
 PRIVATE>