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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/sequences/sequences.factor
View File

@ -478,31 +478,18 @@ M: sequence <=>
: 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 )
over >r over length 1+ r> [
[ 0 swap set-nth-unsafe ] keep
[ 1 swap copy ] keep
] 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 )
over >r over length 1+ r> [
[ >r over length r> set-nth-unsafe ] keep
[ 0 swap copy ] keep
] new-like ;
: seq-diff ( seq1 seq2 -- newseq )
swap [ member? not ] curry subset ;