From 6508cf840ace232b4bc7df0a3089a8536b7b4de2 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sun, 6 Apr 2008 16:27:21 -0500 Subject: [PATCH] newfx: Add a few words --- extra/newfx/newfx.factor | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor index ae92f8f6c0..df826dc295 100644 --- a/extra/newfx/newfx.factor +++ b/extra/newfx/newfx.factor @@ -68,6 +68,29 @@ IN: newfx ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +: delete ( seq elt -- seq ) over sequences:delete ; +: delete-from ( elt seq -- seq ) tuck sequences:delete ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: deleted ( seq elt -- ) swap sequences:delete ; +: deleted-from ( elt seq -- ) sequences:delete ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: remove ( seq obj -- seq ) swap sequences:remove ; +: remove-from ( obj seq -- seq ) sequences:remove ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: subset-of ( quot seq -- seq ) swap subset ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: map-over ( quot seq -- seq ) swap map ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + ! A note about the 'mutate' qualifier. Other words also technically mutate ! their primary object. However, the 'mutate' qualifier is supposed to ! indicate that this is the main objective of the word, as a side effect. \ No newline at end of file