From fc0dd53ddbf6caee218698f002efded263b6eb47 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 24 Mar 2013 21:40:29 -0700 Subject: [PATCH] io.pools: Fix load --- basis/io/pools/pools.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/io/pools/pools.factor b/basis/io/pools/pools.factor index 1cd104da48..d1042818f7 100644 --- a/basis/io/pools/pools.factor +++ b/basis/io/pools/pools.factor @@ -45,7 +45,7 @@ GENERIC: make-connection ( pool -- conn ) [ [ acquire-connection ] keep ] dip [ (with-pooled-connection) ] [ ] [ 2drop dispose ] cleanup ; inline -M: return-connection dispose +M: return-connection-state dispose [ conn>> ] [ pool>> ] bi return-connection ; : return-connection-later ( db pool -- )