X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fscryfall%2Fscryfall.factor;fp=extra%2Fscryfall%2Fscryfall.factor;h=383202cb8d9c3660ae633d4031ecaca86045c013;hp=58cd66d52db764bd403843e43b8dc415ec27cabc;hb=1284e5aa76d88f943c6f34ae8e4bc9c1be1fa895;hpb=4d8cb63829b664d436301f3f5ef7f00d19df028d

diff --git a/extra/scryfall/scryfall.factor b/extra/scryfall/scryfall.factor
index 58cd66d52d..383202cb8d 100644
--- a/extra/scryfall/scryfall.factor
+++ b/extra/scryfall/scryfall.factor
@@ -201,16 +201,16 @@ MEMO: all-cards-by-name ( -- assoc )
 : filter-premodern ( seq -- seq' ) "premodern" filter-legalities ;
 : filter-predh ( seq -- seq' ) "predh" filter-legalities ;
 
-: filter-any-red ( seq -- seq' ) [ "colors" of "R" swap member? ] filter ;
-: filter-only-red ( seq -- seq' ) [ "colors" of { "R" } = ] filter ;
-: filter-any-blue ( seq -- seq' ) [ "colors" of "U" swap member? ] filter ;
-: filter-only-blue ( seq -- seq' ) [ "colors" of { "U" } = ] filter ;
-: filter-any-green ( seq -- seq' ) [ "colors" of "G" swap member? ] filter ;
-: filter-only-green ( seq -- seq' ) [ "colors" of { "G" } = ] filter ;
-: filter-any-black ( seq -- seq' ) [ "colors" of "B" swap member? ] filter ;
-: filter-only-black ( seq -- seq' ) [ "colors" of { "B" } = ] filter ;
-: filter-any-white ( seq -- seq' ) [ "colors" of "W" swap member? ] filter ;
-: filter-only-white ( seq -- seq' ) [ "colors" of { "W" } = ] filter ;
+: filter-red-any ( seq -- seq' ) [ "colors" of "R" swap member? ] filter ;
+: filter-red-only ( seq -- seq' ) [ "colors" of { "R" } = ] filter ;
+: filter-blue-any ( seq -- seq' ) [ "colors" of "U" swap member? ] filter ;
+: filter-blue-only ( seq -- seq' ) [ "colors" of { "U" } = ] filter ;
+: filter-green-any ( seq -- seq' ) [ "colors" of "G" swap member? ] filter ;
+: filter-green-only ( seq -- seq' ) [ "colors" of { "G" } = ] filter ;
+: filter-black-any ( seq -- seq' ) [ "colors" of "B" swap member? ] filter ;
+: filter-black-only ( seq -- seq' ) [ "colors" of { "B" } = ] filter ;
+: filter-white-any ( seq -- seq' ) [ "colors" of "W" swap member? ] filter ;
+: filter-white-only ( seq -- seq' ) [ "colors" of { "W" } = ] filter ;
 : filter-multi-color ( seq -- seq' ) [ "colors" of length 1 > ] filter ;
 : filter-cmc= ( seq n -- seq' ) >float '[ "cmc" of _ = ] filter ;
 : filter-cmc< ( seq n -- seq' ) >float '[ "cmc" of _ < ] filter ;