From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 25 Mar 2024 16:58:45 +0000 (-0500)
Subject: scryfall: rename words for consistency
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=1284e5aa76d88f943c6f34ae8e4bc9c1be1fa895

scryfall: rename words for consistency
---

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 ;