newfx: minor fix

db4
Eduardo Cavazos 2008-06-14 14:44:32 -05:00
parent 10477bf7dd
commit a36307a11b
1 changed files with 2 additions and 2 deletions

View File

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