[Seaside] [VW] Implementing pooled database connections

[Lukas Renggli]

>         [poolEntry := pool next.
>         aBlock value: poolEntry]
>                         ensure: [pool nextPut: poolEntry]
>
>   Is that enough to ensure after use the connection gets put back
> in the pool or do I need some additional exception catching or
> process arbitration or whatever?

This should work well, however take care that you don't do a #call:
within aBlock, ensure blocks don't work well together with
continuations.

> I probably want to validate the pooled connection before giving it
> out so dead database connections get discarded/replaced, but that's
> for later.

For production you certainly need something like this.

Cheers,
Lukas

-- 
Lukas Renggli
http://www.lukas-renggli.ch