core, basis, extra: Remove DOS line endings from files.

[factor.git] / basis / models / arrow / arrow-tests.factor

diff --git a/basis/models/arrow/arrow-tests.factor b/basis/models/arrow/arrow-tests.factor
index 6bd6395ac058009605438389130cae76b180718f..2cb9b6ee5aaefbf0ca03477c1c8c56fc86c4919e 100644 (file)
--- a/basis/models/arrow/arrow-tests.factor
+++ b/basis/models/arrow/arrow-tests.factor
@@ -1,23 +1,23 @@
-USING: arrays generic kernel math models namespaces sequences assocs\r
-tools.test models.arrow accessors ;\r
-IN: models.arrow.tests\r
-\r
-3 <model> "x" set\r
-"x" get [ 2 * ] <arrow> dup "z" set\r
-[ 1 + ] <arrow> "y" set\r
-[ ] [ "y" get activate-model ] unit-test\r
-[ t ] [ "z" get "x" get connections>> member-eq? ] unit-test\r
-[ 7 ] [ "y" get value>> ] unit-test\r
-[ ] [ 4 "x" get set-model ] unit-test\r
-[ 9 ] [ "y" get value>> ] unit-test\r
-[ ] [ "y" get deactivate-model ] unit-test\r
-[ f ] [ "z" get "x" get connections>> member-eq? ] unit-test\r
-\r
-3 <model> "x" set\r
-"x" get [ sq ] <arrow> "y" set\r
-\r
-4 "x" get set-model\r
-\r
-"y" get activate-model\r
-[ 16 ] [ "y" get value>> ] unit-test\r
-"y" get deactivate-model\r
+USING: arrays generic kernel math models namespaces sequences assocs
+tools.test models.arrow accessors ;
+IN: models.arrow.tests
+
+3 <model> "x" set
+"x" get [ 2 * ] <arrow> dup "z" set
+[ 1 + ] <arrow> "y" set
+[ ] [ "y" get activate-model ] unit-test
+[ t ] [ "z" get "x" get connections>> member-eq? ] unit-test
+[ 7 ] [ "y" get value>> ] unit-test
+[ ] [ 4 "x" get set-model ] unit-test
+[ 9 ] [ "y" get value>> ] unit-test
+[ ] [ "y" get deactivate-model ] unit-test
+[ f ] [ "z" get "x" get connections>> member-eq? ] unit-test
+
+3 <model> "x" set
+"x" get [ sq ] <arrow> "y" set
+
+4 "x" get set-model
+
+"y" get activate-model
+[ 16 ] [ "y" get value>> ] unit-test
+"y" get deactivate-model