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
extra/db/postgresql

View File

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