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

[factor.git] / basis / hash-sets / identity / identity.factor

diff --git a/basis/hash-sets/identity/identity.factor b/basis/hash-sets/identity/identity.factor
index dad416c19de592c4b2db449518b07e3050e380fd..e933fcdd5049a17aa2c5314c79147ceb84e3db3c 100644 (file)
--- a/basis/hash-sets/identity/identity.factor
+++ b/basis/hash-sets/identity/identity.factor
@@ -1,37 +1,37 @@
-! Copyright (C) 2013 John Benediktsson.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors hash-sets hash-sets.wrapped kernel parser\r
-sequences sets sets.private vocabs.loader ;\r
-IN: hash-sets.identity\r
-\r
-TUPLE: identity-wrapper < wrapped-key identity-hashcode ;\r
-\r
-: <identity-wrapper> ( wrapped-key -- identity-wrapper )\r
-    dup identity-hashcode identity-wrapper boa ; inline\r
-\r
-M: identity-wrapper equal?\r
-    over identity-wrapper?\r
-    [ [ underlying>> ] bi@ eq? ]\r
-    [ 2drop f ] if ; inline\r
-\r
-M: identity-wrapper hashcode* nip identity-hashcode>> ; inline\r
-\r
-TUPLE: identity-hash-set < wrapped-hash-set ;\r
-\r
-: <identity-hash-set> ( n -- ihash-set )\r
-    <hash-set> identity-hash-set boa ; inline\r
-\r
-M: identity-hash-set wrap-key drop <identity-wrapper> ;\r
-\r
-M: identity-hash-set clone\r
-    underlying>> clone identity-hash-set boa ; inline\r
-\r
-: >identity-hash-set ( members -- ihash-set )\r
-    [ <identity-wrapper> ] map >hash-set identity-hash-set boa ; inline\r
-\r
-M: identity-hash-set set-like\r
-    drop dup identity-hash-set? [ ?members >identity-hash-set ] unless ; inline\r
-\r
-SYNTAX: IHS{ \ } [ >identity-hash-set ] parse-literal ;\r
-\r
-{ "hash-sets.identity" "prettyprint" } "hash-sets.identity.prettyprint" require-when\r
+! Copyright (C) 2013 John Benediktsson.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors hash-sets hash-sets.wrapped kernel parser
+sequences sets sets.private vocabs.loader ;
+IN: hash-sets.identity
+
+TUPLE: identity-wrapper < wrapped-key identity-hashcode ;
+
+: <identity-wrapper> ( wrapped-key -- identity-wrapper )
+    dup identity-hashcode identity-wrapper boa ; inline
+
+M: identity-wrapper equal?
+    over identity-wrapper?
+    [ [ underlying>> ] bi@ eq? ]
+    [ 2drop f ] if ; inline
+
+M: identity-wrapper hashcode* nip identity-hashcode>> ; inline
+
+TUPLE: identity-hash-set < wrapped-hash-set ;
+
+: <identity-hash-set> ( n -- ihash-set )
+    <hash-set> identity-hash-set boa ; inline
+
+M: identity-hash-set wrap-key drop <identity-wrapper> ;
+
+M: identity-hash-set clone
+    underlying>> clone identity-hash-set boa ; inline
+
+: >identity-hash-set ( members -- ihash-set )
+    [ <identity-wrapper> ] map >hash-set identity-hash-set boa ; inline
+
+M: identity-hash-set set-like
+    drop dup identity-hash-set? [ ?members >identity-hash-set ] unless ; inline
+
+SYNTAX: IHS{ \ } [ >identity-hash-set ] parse-literal ;
+
+{ "hash-sets.identity" "prettyprint" } "hash-sets.identity.prettyprint" require-when