newfx: Few additions

db4
Eduardo Cavazos 2008-06-30 10:30:05 -05:00
parent 31d0e3c77b
commit c9ce48955a
1 changed files with 5 additions and 1 deletions

View File

@ -196,3 +196,7 @@ METHOD: as-mutate { object object assoc } set-at ;
: adjoin-on ( elt seq -- seq ) tuck sets:adjoin ;
: adjoined ( set elt -- ) swap sets:adjoin ;
: adjoined-on ( elt set -- ) sets:adjoin ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: start ( seq subseq -- i ) swap sequences:start ;