]> gitweb.factorcode.org Git - factor.git/blobdiff - core/generic/single/single.factor
assocs.extras: Move some often-used words to core
[factor.git] / core / generic / single / single.factor
index c58e4eec54efe1149c16274546ec422b68fcf743..ec901189d5441210b761d0142aea757d6683ccb3 100644 (file)
@@ -90,7 +90,7 @@ C: <predicate-engine> predicate-engine
 ! 2. Convert methods
 : split-methods ( assoc class -- first second )
     [ [ nip class<= ] curry assoc-reject ]
-    [ [ nip class<=     ] curry assoc-filter ] 2bi ;
+    [ [ nip class<= ] curry assoc-filter ] 2bi ;
 
 : convert-methods ( assoc class word -- assoc' )
     over [ split-methods ] 2dip pick assoc-empty?