]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/furnace/auth/providers/assoc/assoc.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / furnace / auth / providers / assoc / assoc.factor
index a7a48307c999eb6f3c265d114320f303e8d3a330..712ef13e98bd156974fecb655ad6fbc253964abb 100644 (file)
@@ -1,18 +1,18 @@
-! Copyright (C) 2008 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors assocs kernel furnace.auth.providers ;\r
-IN: furnace.auth.providers.assoc\r
-\r
-TUPLE: users-in-memory assoc ;\r
-\r
-: <users-in-memory> ( -- provider )\r
-    H{ } clone users-in-memory boa ;\r
-\r
-M: users-in-memory get-user ( username provider -- user/f )\r
-    assoc>> at ;\r
-\r
-M: users-in-memory update-user ( user provider -- ) 2drop ;\r
-\r
-M: users-in-memory new-user ( user provider -- user/f )\r
-    [ dup username>> ] dip assoc>>\r
-    2dup key? [ 3drop f ] [ pick [ set-at ] dip ] if ;\r
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors assocs kernel furnace.auth.providers ;
+IN: furnace.auth.providers.assoc
+
+TUPLE: users-in-memory assoc ;
+
+: <users-in-memory> ( -- provider )
+    H{ } clone users-in-memory boa ;
+
+M: users-in-memory get-user ( username provider -- user/f )
+    assoc>> at ;
+
+M: users-in-memory update-user ( user provider -- ) 2drop ;
+
+M: users-in-memory new-user ( user provider -- user/f )
+    [ dup username>> ] dip assoc>>
+    2dup key? [ 3drop f ] [ pick [ set-at ] dip ] if ;