steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix load error

db4
Doug Coleman 2008-02-15 12:16:31 -06:00
parent 97fd5bee5f
commit 46df9c16d1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/db/postgresql/postgresql.factor
View File

@ -52,6 +52,9 @@ M: postgresql-result-set #columns ( result-set -- n )
M: postgresql-result-set row-column ( result-set n -- obj ) M: postgresql-result-set row-column ( result-set n -- obj )
>r dup result-set-handle swap result-set-n r> PQgetvalue ; >r dup result-set-handle swap result-set-n r> PQgetvalue ;
M: postgresql-result-set row-column ( result-set n -- obj )
>r dup result-set-handle swap result-set-n r> PQgetvalue ;
M: postgresql-statement insert-statement ( statement -- id ) M: postgresql-statement insert-statement ( statement -- id )
query-results [ break 0 row-column ] with-disposal ; query-results [ break 0 row-column ] with-disposal ;
@ -234,9 +237,6 @@ M: postgresql-db tuple>params ( columns tuple -- obj )
[ >r dup third swap first r> get-slot-named swap ] [ >r dup third swap first r> get-slot-named swap ]
curry { } map>assoc ; curry { } map>assoc ;
M: postgresql-db last-id ( res -- id )
drop f ;
: postgresql-db-modifiers ( -- hashtable ) : postgresql-db-modifiers ( -- hashtable )
H{ H{
{ +native-id+ "not null primary key" } { +native-id+ "not null primary key" }