factor: trim using lists

[factor.git] / basis / sequences / complex / complex.factor

diff --git a/basis/sequences/complex/complex.factor b/basis/sequences/complex/complex.factor
index 93f9727f75db1edc772a8d2c5b3e66029198dce8..43a75d50d4f4a4edc37695068d82652c579d9fe7 100644 (file)
--- a/basis/sequences/complex/complex.factor
+++ b/basis/sequences/complex/complex.factor
@@ -1,5 +1,4 @@
-USING: accessors kernel math math.functions
-sequences sequences.private ;
+USING: accessors kernel math sequences sequences.private ;
 IN: sequences.complex
 
 TUPLE: complex-sequence seq ;
@@ -18,8 +17,8 @@ PRIVATE>
 M: complex-sequence length
     seq>> length -1 shift ;
 M: complex-sequence nth-unsafe
-    complex@ [ nth-unsafe ] [ [ 1+ ] dip nth-unsafe ] 2bi rect> ;
+    complex@ [ nth-unsafe ] [ [ 1 + ] dip nth-unsafe ] 2bi rect> ;
 M: complex-sequence set-nth-unsafe
     complex@
     [ [ real-part      ] [    ] [ ] tri* set-nth-unsafe ]
-    [ [ imaginary-part ] [ 1+ ] [ ] tri* set-nth-unsafe ] 3bi ;
+    [ [ imaginary-part ] [ 1 + ] [ ] tri* set-nth-unsafe ] 3bi ;