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

[factor.git] / basis / compiler / tests / redefine25.factor

diff --git a/basis/compiler/tests/redefine25.factor b/basis/compiler/tests/redefine25.factor
index 804bbcd77c20cffe8d627d44e2beec0e659a7f08..4cdc387cf79e5c41f33813f4ee7bdee9c9933f91 100644 (file)
--- a/basis/compiler/tests/redefine25.factor
+++ b/basis/compiler/tests/redefine25.factor
@@ -1,36 +1,36 @@
-USING: tools.test compiler.units classes.mixin definitions\r
-kernel kernel.private ;\r
-IN: compiler.tests.redefine25\r
-\r
-MIXIN: empty-mixin\r
-\r
-: empty-mixin-test-1 ( a -- ? ) empty-mixin? ;\r
-\r
-TUPLE: a-superclass ;\r
-\r
-: empty-mixin-test-2 ( a -- ? ) { a-superclass } declare empty-mixin? ;\r
-\r
-TUPLE: empty-mixin-member < a-superclass ;\r
-\r
-[ f ] [ empty-mixin-member new empty-mixin? ] unit-test\r
-[ f ] [ empty-mixin-member new empty-mixin-test-1 ] unit-test\r
-[ f ] [ empty-mixin-member new empty-mixin-test-2 ] unit-test\r
-\r
-[ ] [\r
-    [\r
-        \ empty-mixin-member \ empty-mixin add-mixin-instance\r
-    ] with-compilation-unit\r
-] unit-test\r
-\r
-[ t ] [ empty-mixin-member new empty-mixin? ] unit-test\r
-[ t ] [ empty-mixin-member new empty-mixin-test-1 ] unit-test\r
-[ t ] [ empty-mixin-member new empty-mixin-test-2 ] unit-test\r
-\r
-[ ] [\r
-    [\r
-        \ empty-mixin forget\r
-        \ empty-mixin-member forget\r
-        \ empty-mixin-test-1 forget\r
-        \ empty-mixin-test-2 forget\r
-    ] with-compilation-unit\r
-] unit-test\r
+USING: tools.test compiler.units classes.mixin definitions
+kernel kernel.private ;
+IN: compiler.tests.redefine25
+
+MIXIN: empty-mixin
+
+: empty-mixin-test-1 ( a -- ? ) empty-mixin? ;
+
+TUPLE: a-superclass ;
+
+: empty-mixin-test-2 ( a -- ? ) { a-superclass } declare empty-mixin? ;
+
+TUPLE: empty-mixin-member < a-superclass ;
+
+[ f ] [ empty-mixin-member new empty-mixin? ] unit-test
+[ f ] [ empty-mixin-member new empty-mixin-test-1 ] unit-test
+[ f ] [ empty-mixin-member new empty-mixin-test-2 ] unit-test
+
+[ ] [
+    [
+        \ empty-mixin-member \ empty-mixin add-mixin-instance
+    ] with-compilation-unit
+] unit-test
+
+[ t ] [ empty-mixin-member new empty-mixin? ] unit-test
+[ t ] [ empty-mixin-member new empty-mixin-test-1 ] unit-test
+[ t ] [ empty-mixin-member new empty-mixin-test-2 ] unit-test
+
+[ ] [
+    [
+        \ empty-mixin forget
+        \ empty-mixin-member forget
+        \ empty-mixin-test-1 forget
+        \ empty-mixin-test-2 forget
+    ] with-compilation-unit
+] unit-test