From 2e79c4eaba19c46bf5f046fdffd4da5e99e8e7f3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 31 Jul 2022 10:45:14 -0500 Subject: [PATCH] sequences: remove-of? words aren't as good as i had hoped --- core/sequences/sequences.factor | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 7ff0947f28..d9825b8b99 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -699,27 +699,15 @@ PRIVATE> : member? ( elt seq -- ? ) [ = ] with any? ; -: member-of? ( seq elt -- ? ) - [ = ] curry any? ; - : member-eq? ( elt seq -- ? ) [ eq? ] with any? ; -: member-eq-of? ( seq elt -- ? ) - [ eq? ] curry any? ; - : remove ( elt seq -- newseq ) [ = ] with reject ; -: remove-of ( seq elt -- newseq ) - [ = ] curry reject ; - : remove-eq ( elt seq -- newseq ) [ eq? ] with reject ; -: remove-eq-of ( seq elt -- newseq ) - [ eq? ] curry reject ; - : sift ( seq -- newseq ) [ ] filter ; -- 2.34.1