From 9e96befa6981f39a27d120de93bab283d7468668 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Mon, 31 Mar 2008 19:24:29 -0600 Subject: [PATCH] Remove add and add* --- core/sequences/sequences.factor | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 26c1013c28..ca46066861 100755 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -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 ;