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

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

diff --git a/extra/mongodb/tuple/persistent/persistent.factor b/extra/mongodb/tuple/persistent/persistent.factor
index e711066fe64f8742484efc2135da09b24eee011d..a35882dcfb9f2a16437549e3134715a59955b8f8 100644 (file)
--- a/extra/mongodb/tuple/persistent/persistent.factor
+++ b/extra/mongodb/tuple/persistent/persistent.factor
@@ -18,7 +18,7 @@ DEFER: assoc>tuple
    [ first ] keep second lookup-word ; inline
 
 : tuple-instance ( tuple-info -- instance )
-    mdbinfo>tuple-class new ; inline 
+    mdbinfo>tuple-class new ; inline
 
 : prepare-assoc>tuple ( assoc -- tuple keylist mirror assoc )
    [ tuple-info tuple-instance dup
@@ -50,7 +50,7 @@ TUPLE: cond-value value quot ;
 CONSTRUCTOR: <cond-value> cond-value ( value quot -- cond-value ) ;
 
 : write-mdb-persistent ( value quot -- value' )
-   over [ call( tuple -- assoc ) ] dip 
+   over [ call( tuple -- assoc ) ] dip
    [ [ tuple-collection name>> ] [ >toid ] bi ] keep
    [ add-storable ] dip
    [ tuple-collection name>> ] [ id>> ] bi <dbref> ;
@@ -72,7 +72,7 @@ CONSTRUCTOR: <cond-value> cond-value ( value quot -- cond-value ) ;
    '[ _ 2over write-field?
       [ _ write-field swap _ set-at ]
       [ 2drop ] if
-   ] assoc-each ; 
+   ] assoc-each ;
 
 : prepare-assoc ( tuple -- assoc mirror tuple assoc )
    H{ } clone swap [ <mirror> ] keep pick ; inline
@@ -109,4 +109,3 @@ M: tuple tuple>selector ( tuple -- assoc )
        [ make-tuple ]
        [ ] if ] [ drop ] recover
    ] [ ] if ; inline recursive
-