Oh, realized there is with-transaction word only after sending the message.
So it becomes

: insert-test ( -- )
          [
              sqltest recreate-table
              [ 100 [ sqltest new insert-tuple ] times ] with-transaction
          ] with-sqltest-db ;

On Fri, 22 Apr 2011 03:52:46 +0600, Andrey Onymov <[email protected]>  
wrote:

> : insert-test ( -- )
>          [
>              sqltest recreate-table
>              begin-transaction
>              100 [ sqltest new insert-tuple ] times
>              commit-transaction
>          ] with-sqltest-db ;

------------------------------------------------------------------------------
Fulfilling the Lean Software Promise
Lean software platforms are now widely adopted and the benefits have been 
demonstrated beyond question. Learn why your peers are replacing JEE 
containers with lightweight application servers - and what you can gain 
from the move. http://p.sf.net/sfu/vmware-sfemails
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk

Reply via email to