From 10477bf7dd3c9b60341ab65da76313797ba0ebae Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sat, 14 Jun 2008 13:09:54 -0500 Subject: [PATCH] newfx: a few additions --- extra/newfx/newfx.factor | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor index be30dfe370..0504744240 100644 --- a/extra/newfx/newfx.factor +++ b/extra/newfx/newfx.factor @@ -189,4 +189,9 @@ METHOD: as-mutate { object object assoc } set-at ; ! 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 +! indicate that this is the main objective of the word, as a side effect. + +: adjoin ( seq elt -- seq ) over sets:adjoin ; +: adjoin-on ( elt seq -- seq ) sets:adjoin ; +: adjoined ( set elt -- set ) swap sets:adjoin ; +: adjoined-on ( elt set -- ) sets:adjoin ; \ No newline at end of file