]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/furnace/db/db.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / furnace / db / db.factor
index c09be983bb5869465918cdb5c24c3907d2fe9ef9..e185c458a617ad666c7b8e1a0e05ffa251b099ef 100644 (file)
@@ -1,19 +1,19 @@
-! Copyright (C) 2008 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: kernel accessors continuations namespaces destructors\r
-db db.private db.pools io.pools http.server http.server.filters ;\r
-IN: furnace.db\r
-\r
-TUPLE: db-persistence < filter-responder pool disposed ;\r
-\r
-: <db-persistence> ( responder db -- responder' )\r
-    <db-pool> f db-persistence boa ;\r
-\r
-M: db-persistence call-responder*\r
-    [\r
-        pool>> [ acquire-connection ] keep\r
-        [ return-connection-later ] [ drop db-connection set ] 2bi\r
-    ]\r
-    [ call-next-method ] bi ;\r
-\r
-M: db-persistence dispose* pool>> dispose ;\r
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel accessors continuations namespaces destructors
+db db.private db.pools io.pools http.server http.server.filters ;
+IN: furnace.db
+
+TUPLE: db-persistence < filter-responder pool disposed ;
+
+: <db-persistence> ( responder db -- responder' )
+    <db-pool> f db-persistence boa ;
+
+M: db-persistence call-responder*
+    [
+        pool>> [ acquire-connection ] keep
+        [ return-connection-later ] [ drop db-connection set ] 2bi
+    ]
+    [ call-next-method ] bi ;
+
+M: db-persistence dispose* pool>> dispose ;