Moved seq-intersect to core

2008-03-11 03:36:19 -05:00 · 2008-03-11 03:36:19 -05:00 · a463e6d9fb
parent 2b00bafdc1
commit a463e6d9fb
1 changed files with 0 additions and 3 deletions
--- a/extra/units/units.factor
+++ b/extra/units/units.factor
@ -12,9 +12,6 @@ TUPLE: dimensions-not-equal ;

 M: dimensions-not-equal summary drop "Dimensions do not match" ;

-: seq-intersect ( seq1 seq2 -- seq1/\seq2 )
-    swap [ member? ] curry subset ;
-
 : remove-one ( seq obj -- seq )
    1array split1 append ;