Remove add and add*

db4
Eduardo Cavazos 2008-03-31 19:24:29 -06:00
parent aa40350aa7
commit 9e96befa69
1 changed files with 0 additions and 13 deletions

View File

@ -478,31 +478,18 @@ M: sequence <=>
: push-new ( elt seq -- ) [ delete ] 2keep push ; : push-new ( elt seq -- ) [ delete ] 2keep push ;
: add* ( seq elt -- newseq )
over >r over length 1+ r> [
[ 0 swap set-nth-unsafe ] keep
[ 1 swap copy ] keep
] new-like ;
: prefix ( seq elt -- newseq ) : prefix ( seq elt -- newseq )
over >r over length 1+ r> [ over >r over length 1+ r> [
[ 0 swap set-nth-unsafe ] keep [ 0 swap set-nth-unsafe ] keep
[ 1 swap copy ] keep [ 1 swap copy ] keep
] new-like ; ] new-like ;
: add ( seq elt -- newseq )
over >r over length 1+ r> [
[ >r over length r> set-nth-unsafe ] keep
[ 0 swap copy ] keep
] new-like ;
: suffix ( seq elt -- newseq ) : suffix ( seq elt -- newseq )
over >r over length 1+ r> [ over >r over length 1+ r> [
[ >r over length r> set-nth-unsafe ] keep [ >r over length r> set-nth-unsafe ] keep
[ 0 swap copy ] keep [ 0 swap copy ] keep
] new-like ; ] new-like ;
: seq-diff ( seq1 seq2 -- newseq ) : seq-diff ( seq1 seq2 -- newseq )
swap [ member? not ] curry subset ; swap [ member? not ] curry subset ;