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

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

diff --git a/basis/hashtables/identity/identity.factor b/basis/hashtables/identity/identity.factor
index c69673ac365405bfe8bfb54250ab60ce1f9f9ca6..04238f5e2742dadbe10fb62a5ba12fd4f9e00b95 100644 (file)
--- a/basis/hashtables/identity/identity.factor
+++ b/basis/hashtables/identity/identity.factor
@@ -1,42 +1,42 @@
-! (c)2010 Joe Groff bsd license\r
-USING: accessors assocs hashtables hashtables.wrapped kernel\r
-parser vocabs.loader ;\r
-IN: hashtables.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-hashtable < wrapped-hashtable ;\r
-\r
-: <identity-hashtable> ( n -- ihashtable )\r
-    <hashtable> identity-hashtable boa ; inline\r
-\r
-M: identity-hashtable wrap-key drop <identity-wrapper> ;\r
-\r
-M: identity-hashtable clone\r
-    underlying>> clone identity-hashtable boa ; inline\r
-\r
-: identity-associate ( value key -- ihashtable )\r
-    2 <identity-hashtable> [ set-at ] keep ; inline\r
-\r
-: >identity-hashtable ( assoc -- ihashtable )\r
-    [ assoc-size <identity-hashtable> ] keep assoc-union! ;\r
-\r
-M: identity-hashtable assoc-like\r
-    drop dup identity-hashtable? [ >identity-hashtable ] unless ; inline\r
-\r
-M: identity-hashtable new-assoc drop <identity-hashtable> ;\r
-\r
-SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ;\r
-\r
-{ "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when\r
-{ "hashtables.identity" "mirrors" } "hashtables.identity.mirrors" require-when\r
+! (c)2010 Joe Groff bsd license
+USING: accessors assocs hashtables hashtables.wrapped kernel
+parser vocabs.loader ;
+IN: hashtables.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-hashtable < wrapped-hashtable ;
+
+: <identity-hashtable> ( n -- ihashtable )
+    <hashtable> identity-hashtable boa ; inline
+
+M: identity-hashtable wrap-key drop <identity-wrapper> ;
+
+M: identity-hashtable clone
+    underlying>> clone identity-hashtable boa ; inline
+
+: identity-associate ( value key -- ihashtable )
+    2 <identity-hashtable> [ set-at ] keep ; inline
+
+: >identity-hashtable ( assoc -- ihashtable )
+    [ assoc-size <identity-hashtable> ] keep assoc-union! ;
+
+M: identity-hashtable assoc-like
+    drop dup identity-hashtable? [ >identity-hashtable ] unless ; inline
+
+M: identity-hashtable new-assoc drop <identity-hashtable> ;
+
+SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ;
+
+{ "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when
+{ "hashtables.identity" "mirrors" } "hashtables.identity.mirrors" require-when