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

[factor.git] / basis / hashtables / identity / identity-tests.factor

diff --git a/basis/hashtables/identity/identity-tests.factor b/basis/hashtables/identity/identity-tests.factor
index e333d1f7ba1bb445372a17b1c31f50d600504cd4..4e773c2413a23e66ee09a86184e0483f498578af 100644 (file)
--- a/basis/hashtables/identity/identity-tests.factor
+++ b/basis/hashtables/identity/identity-tests.factor
@@ -1,36 +1,36 @@
-! (c)2010 Joe Groff bsd license\r
-USING: assocs hashtables.identity kernel literals tools.test ;\r
-IN: hashtables.identity.tests\r
-\r
-CONSTANT: the-real-slim-shady "marshall mathers"\r
-\r
-CONSTANT: will\r
-    IH{\r
-        { $ the-real-slim-shady t }\r
-        { "marshall mathers"    f }\r
-    }\r
-\r
-: please-stand-up ( assoc key -- value )\r
-    of ;\r
-\r
-[ t ] [ will the-real-slim-shady please-stand-up ] unit-test\r
-[ t ] [ will clone the-real-slim-shady please-stand-up ] unit-test\r
-\r
-[ 2 ] [ will assoc-size ] unit-test\r
-[ { { "marshall mathers" f } } ] [\r
-    the-real-slim-shady will clone\r
-    [ delete-at ] [ >alist ] bi\r
-] unit-test\r
-[ t ] [\r
-    t the-real-slim-shady identity-associate\r
-    t the-real-slim-shady identity-associate =\r
-] unit-test\r
-[ f ] [\r
-    t the-real-slim-shady identity-associate\r
-    t "marshall mathers"  identity-associate =\r
-] unit-test\r
-\r
-CONSTANT: same-as-it-ever-was "same as it ever was"\r
-\r
-{ IH{ { $ same-as-it-ever-was $ same-as-it-ever-was } } }\r
-[ H{ { $ same-as-it-ever-was $ same-as-it-ever-was } } IH{ } assoc-like ] unit-test\r
+! (c)2010 Joe Groff bsd license
+USING: assocs hashtables.identity kernel literals tools.test ;
+IN: hashtables.identity.tests
+
+CONSTANT: the-real-slim-shady "marshall mathers"
+
+CONSTANT: will
+    IH{
+        { $ the-real-slim-shady t }
+        { "marshall mathers"    f }
+    }
+
+: please-stand-up ( assoc key -- value )
+    of ;
+
+[ t ] [ will the-real-slim-shady please-stand-up ] unit-test
+[ t ] [ will clone the-real-slim-shady please-stand-up ] unit-test
+
+[ 2 ] [ will assoc-size ] unit-test
+[ { { "marshall mathers" f } } ] [
+    the-real-slim-shady will clone
+    [ delete-at ] [ >alist ] bi
+] unit-test
+[ t ] [
+    t the-real-slim-shady identity-associate
+    t the-real-slim-shady identity-associate =
+] unit-test
+[ f ] [
+    t the-real-slim-shady identity-associate
+    t "marshall mathers"  identity-associate =
+] unit-test
+
+CONSTANT: same-as-it-ever-was "same as it ever was"
+
+{ IH{ { $ same-as-it-ever-was $ same-as-it-ever-was } } }
+[ H{ { $ same-as-it-ever-was $ same-as-it-ever-was } } IH{ } assoc-like ] unit-test