X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fsequences%2Fcomplex%2Fcomplex.factor;h=730689eb4ff46f8de5e253b6c7c06a5893b4a520;hp=93f9727f75db1edc772a8d2c5b3e66029198dce8;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/sequences/complex/complex.factor b/basis/sequences/complex/complex.factor index 93f9727f75..730689eb4f 100644 --- a/basis/sequences/complex/complex.factor +++ b/basis/sequences/complex/complex.factor @@ -18,8 +18,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 ;