modern: line endings

basis/tools/test/test-tests.factor

@@ -32,4 +32,4 @@ STDERR-UNIT-TEST: [ "hello" ewrite ] "hello"
     EXPECTED-STACK: { 3 }
     EXPECTED-STDOUT: "hello world"
 UNIT-TEST-FAILED>
-]]
+]]

extra/cuda/demos/hello-world/hello-world.factor

@@ -24,4 +24,3 @@ CUDA-FUNCTION: helloWorld ( char* string-ptr )
     ] with-each-cuda-device ;
 
 MAIN: cuda-hello-world
-

extra/find/extras/extras-tests.factor

@@ -30,7 +30,7 @@ IN: find.extras.tests
         [
             { [ "[" head-from ] [ [ char: = = ] take-empty-from ] [ "[" head-from ] } find-quots
             dup [ slices-combine ] when
-        ] 
+        ]
     } find-quots slices-combine
 ] unit-test
 
@@ -39,7 +39,7 @@ IN: find.extras.tests
         [
             { [ "[" head-from ] [ [ char: = = ] take-empty-from ] [ "[" head-from ] } find-quots
             dup [ slices-combine ] when
-        ] 
+        ]
     } find-quots slices-combine
 ] unit-test
 
@@ -48,7 +48,7 @@ IN: find.extras.tests
         [
             { [ "[" head-from ] [ [ char: = = ] take-empty-from ] [ "[" head-from ] } find-quots
             dup [ slices-combine ] when
-        ] 
+        ]
     } find-quots slices-combine
 ] unit-test
 
@@ -57,7 +57,7 @@ IN: find.extras.tests
         [
             { [ "[" head-from ] [ [ char: = = ] take-empty-from ] [ "[" head-from ] } find-quots
             dup [ slices-combine ] when
-        ] 
+        ]
     } find-quots slices-combine
 ] unit-test
 
@@ -67,7 +67,7 @@ IN: find.extras.tests
         [
             { [ "[" head-from ] [ [ char: = = ] take-empty-from ] [ "[" head-from ] } find-quots
             dup [ slices-combine ] when
-        ] 
+        ]
     } find-quots slices-combine
 ] unit-test
 

extra/find/extras/extras.factor

@@ -146,7 +146,7 @@ CONSTANT: all-separators $[ whitespace-separators modern-separators append ]
     '[ _ head-from ] dip swap ;
 
 : opening-lua-bracket-from ( seq n -- seq n' slices )
-    { [ tag-from ] [ "[" head-from ] [ [ char: = = ] take-empty-from ] [ "[" head-from ] } 
+    { [ tag-from ] [ "[" head-from ] [ [ char: = = ] take-empty-from ] [ "[" head-from ] }
     find-quots ;
 
 : opening-lua-brace-from ( seq n -- seq n' slices )
@@ -229,7 +229,7 @@ ERROR: unmatched-syntax seq n obj delimiter ;
     peek-delimiter :> peeked
     delim peeked sequence= [
         ! } }
-        delimiter-stack get pop* 
+        delimiter-stack get pop*
         delim f
     ] [
         delim peeked matching-delimiter-string sequence= [

extra/math/similarity/similarity.factor

@@ -17,4 +17,4 @@ IN: math.similarity
 : jaccard-similarity ( a b -- n )
     [ intersect cardinality dup ]
     [ [ cardinality ] bi@ + swap - ] 2bi
-    [ drop 0 ] [ /f ] if-zero ;
+    [ drop 0 ] [ /f ] if-zero ;

extra/modern/compiler/compiler.factor

@@ -253,4 +253,4 @@ DEFER: literal>tuple
 
 
 : literals>vocabulary ( literals -- vocabulary )
-    ;
+    ;

extra/modern/modern-tests.factor

@@ -201,4 +201,4 @@ IN: modern.tests
             }
         }
     }
-} [ "foo:: <FOO FOO>[ 0 ][ 1 ][ 2 ][ 3 ] <BAR BAR>" string>literals >strings ] unit-test
+} [ "foo:: <FOO FOO>[ 0 ][ 1 ][ 2 ][ 3 ] <BAR BAR>" string>literals >strings ] unit-test

extra/sequences/extras/extras.factor

@@ -626,4 +626,4 @@ PRIVATE>
 
 : count-tail ( seq quot -- n )
     [ not ] compose [ find-last drop ] 2keep drop
-    length swap [ - 1 - ] when* ; inline
+    length swap [ - 1 - ] when* ; inline

extra/syntax/extras/extras-tests.factor

@@ -8,4 +8,3 @@ CONSTANT: nums2 <array 1 2 3 array>
 
 UNIT-TEST: [ nums1 ] { { 1 2 3 } }
 UNIT-TEST: [ nums2 ] { { 1 2 3 } }
-

extra/zealot/factor/factor.factor

@@ -167,4 +167,4 @@ M: windows factor-path "./factor.com" ;
         [ "ZEALOT BOOTSTRAPPING" print flush drop bootstrap-factor ]
         [ "ZEALOT LOADING ROOTS" print flush drop zealot-load-commands ]
         [ "ZEALOT TESTING ROOTS" print flush drop zealot-test-commands ]
-    } 2cleave ;
+    } 2cleave ;

extra/zealot/zealot.factor

@@ -74,4 +74,4 @@ IN: zealot
     [ git-clone-as ] keep ;
 
 : zealot-build-checkout-branch ( path branch -- process )
-    '[ _ git-checkout-existing-branch* ] with-directory ; 
+    '[ _ git-checkout-existing-branch* ] with-directory ;