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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-07-11 12:41:37 -05:00
parent f127cef8a1 698a66d076
commit 4f1bcdda2b
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/newfx/newfx.factor
View File

@ -1,5 +1,5 @@
USING: kernel sequences assocs qualified circular sets ;
USING: kernel sequences assocs qualified circular sets fry sequences.lib ;
USING: math multi-methods ;
@ -242,4 +242,11 @@ METHOD: as-mutate { object object assoc } set-at ;
: insert ( seq i obj -- seq ) >r cut r> prefix append ;
: splice ( seq i seq -- seq ) >r cut r> prepend append ;
: splice ( seq i seq -- seq ) >r cut r> prepend append ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: purge ( seq quot -- seq ) [ not ] compose filter ;
: purge! ( seq quot -- seq )
dupd '[ swap @ [ pluck! ] [ drop ] if ] each-index ;