steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

newfx: a few additions

db4
Eduardo Cavazos 2008-06-14 13:09:54 -05:00
parent 8c6c4a8f4e
commit 10477bf7dd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/newfx/newfx.factor
View File

@ -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.
! 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 ;