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

[factor.git] / extra / koszul / koszul.factor

diff --git a/extra/koszul/koszul.factor b/extra/koszul/koszul.factor
index de1cf4fc9281c327f9dbf234527adb0c1f7d4911..14cea104cb24910cb98c0904e424e89df1b10add 100644 (file)
--- a/extra/koszul/koszul.factor
+++ b/extra/koszul/koszul.factor
@@ -18,8 +18,7 @@ IN: koszul
         [ 1array >alt ]
     } cond ;
 
-: canonicalize ( assoc -- assoc' )
-    [ nip zero? ] assoc-reject ;
+: canonicalize ( assoc -- assoc' ) [ zero? ] reject-values ;
 
 SYMBOL: terms