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

[factor.git] / extra / mongodb / tuple / collection / collection.factor

diff --git a/extra/mongodb/tuple/collection/collection.factor b/extra/mongodb/tuple/collection/collection.factor
index 0e217be33c3ca56f94412d0a7a7ef39555805dcb..0e52d8a19a7d2f65dea468d74516545943477af8 100644 (file)
--- a/extra/mongodb/tuple/collection/collection.factor
+++ b/extra/mongodb/tuple/collection/collection.factor
@@ -48,7 +48,7 @@ M: mdb-persistent id<< ( object value -- )
    over class-of id-slot writer-word execute( object value -- ) ;
 
 
- 
+
 TUPLE: mdb-tuple-collection < mdb-collection { classes } ;
 
 GENERIC: tuple-collection ( object -- mdb-collection )
@@ -60,7 +60,7 @@ GENERIC: mdb-index-map ( tuple -- sequence )
 <PRIVATE
 
 
-: (mdb-collection) ( class -- mdb-collection )     
+: (mdb-collection) ( class -- mdb-collection )
     dup MDB_COLLECTION word-prop
     [ nip ]
     [ superclass [ (mdb-collection) ] [ f ] if* ] if* ; inline recursive
@@ -79,7 +79,7 @@ GENERIC: mdb-index-map ( tuple -- sequence )
     '[ split-optl swap _ set-at ] each ; inline
 
 : index-list>map ( seq -- map )
-    [ H{ } clone ] dip over 
+    [ H{ } clone ] dip over
     '[ dup name>> _ set-at ] each ; inline
 
 : user-defined-key ( map -- key value ? )
@@ -123,10 +123,10 @@ PRIVATE>
 
 M: tuple-class tuple-collection ( tuple -- mdb-collection )
     (mdb-collection) ;
- 
+
 M: mdb-persistent tuple-collection ( tuple -- mdb-collection )
     class-of (mdb-collection) ;
- 
+
 M: mdb-persistent mdb-slot-map ( tuple -- string )
     class-of (mdb-slot-map) ;
 
@@ -153,13 +153,13 @@ M: mdb-collection mdb-index-map
 : slot-option? ( tuple slot option -- ? )
     [ swap mdb-slot-map at ] dip
     '[ _ swap member-eq? ] [ f ] if* ;
-  
+
 PRIVATE>
 
 GENERIC: <mdb-tuple-collection> ( name -- mdb-tuple-collection )
-M: string <mdb-tuple-collection> 
-    collection-map [ ] [ key? ] 2bi 
-    [ at ] [ [ mdb-tuple-collection new dup ] 2dip 
+M: string <mdb-tuple-collection>
+    collection-map [ ] [ key? ] 2bi
+    [ at ] [ [ mdb-tuple-collection new dup ] 2dip
              [ [ >>name ] keep ] dip set-at ] if ; inline
 M: mdb-tuple-collection <mdb-tuple-collection> ;
 M: mdb-collection <mdb-tuple-collection>