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

[factor.git] / unmaintained / adsoda / combinators / combinators.factor

diff --git a/unmaintained/adsoda/combinators/combinators.factor b/unmaintained/adsoda/combinators/combinators.factor
index 5838c30698967231605a000630f068fd727c4797..4e4bbff72d57d8d3135263d8951e9d4ec19d6e42 100755 (executable)
--- a/unmaintained/adsoda/combinators/combinators.factor
+++ b/unmaintained/adsoda/combinators/combinators.factor
@@ -4,7 +4,7 @@ USING: kernel arrays sequences fry math combinators ;
 \r
 IN: adsoda.combinators\r
 \r
-! : (combinations) ( seq -- seq ) [ 1 tail ] dip combinations ; \r
+! : (combinations) ( seq -- seq ) [ 1 tail ] dip combinations ;\r
 \r
 ! : prefix-each [ prefix ] curry map ; inline\r
 \r
@@ -34,7 +34,8 @@ IN: adsoda.combinators
     } cond\r
 ;\r
 \r
-: concat-nth ( seq1 seq2 -- seq )  [ nth append ] curry map-index ;\r
+: concat-nth ( seq1 seq2 -- seq )  \r
+    [ nth append ] curry map-index ;\r
 \r
 : do-cycle   ( array -- array )   dup first suffix ;\r
 \r