-! 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 ;