newfx: minor fix
parent
10477bf7dd
commit
a36307a11b
|
@ -192,6 +192,6 @@ METHOD: as-mutate { object object assoc } set-at ;
|
|||
! 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 ;
|
||||
: adjoin-on ( elt seq -- seq ) tuck sets:adjoin ;
|
||||
: adjoined ( set elt -- ) swap sets:adjoin ;
|
||||
: adjoined-on ( elt set -- ) sets:adjoin ;
|
Loading…
Reference in New Issue