From a798cd4f5c5b5660cbf48db5c10c54850a6e35fc Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 4 Sep 2006 01:13:07 +0000
Subject: [PATCH] And more stack effect fixes

---
 contrib/sqlite/test.factor | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/contrib/sqlite/test.factor b/contrib/sqlite/test.factor
index 09e94c581c..ab7682ab40 100644
--- a/contrib/sqlite/test.factor
+++ b/contrib/sqlite/test.factor
@@ -46,16 +46,16 @@ USE: prettyprint
   sqlite-close ;
 
 : find-person ( name -- )
-  test.db sqlite-open  ( name db )
-  dup "select * from test where name=?" sqlite-prepare ( name db stmt )
-  [ rot 1 swap sqlite-bind-text ] keep ( db stmt )
+  test.db sqlite-open  ! name db
+  dup "select * from test where name=?" sqlite-prepare ! name db stmt
+  [ rot 1 swap sqlite-bind-text ] keep ! db stmt
   [ [ 1 column-text . ] sqlite-each ] keep
   sqlite-finalize
   sqlite-close ;  
 
 : find-all ( -- )
-  test.db sqlite-open  ( db )
-  dup "select * from test" sqlite-prepare ( db stmt )
+  test.db sqlite-open  ! db
+  dup "select * from test" sqlite-prepare ! db stmt
   [ [ [ 0 column-text ] keep 1 column-text curry ] sqlite-map ] keep
   sqlite-finalize
   swap sqlite-close ;