remove old code

db4
Doug Coleman 2008-04-20 17:50:39 -05:00
parent 5dc015f0f5
commit cd62fff604
1 changed files with 1 additions and 2 deletions

View File

@ -101,10 +101,9 @@ M: postgresql-db <simple-statement> ( sql in out -- statement )
M: postgresql-db <prepared-statement> ( sql in out -- statement ) M: postgresql-db <prepared-statement> ( sql in out -- statement )
<simple-statement> dup prepare-statement ; <simple-statement> dup prepare-statement ;
SYMBOL: postgresql-counter
: bind-name% ( -- ) : bind-name% ( -- )
CHAR: $ 0, CHAR: $ 0,
postgresql-counter [ inc ] [ get 0# ] bi ; sql-counter [ inc ] [ get 0# ] bi ;
M: postgresql-db bind% ( spec -- ) M: postgresql-db bind% ( spec -- )
bind-name% 1, ; bind-name% 1, ;