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

db.queries: set the "table-name" inside a with-variables.

windows-high-dpi
John Benediktsson 2018-02-14 10:39:20 -08:00
parent 9a9670c7ce
commit efcd5ab98d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/db/queries/queries.factor
View File

@ -46,11 +46,10 @@ M: retryable execute-statement* ( statement type -- )
: sql-props ( class -- columns table ) : sql-props ( class -- columns table )
[ db-columns ] [ db-table-name ] bi ; [ db-columns ] [ db-table-name ] bi ;
: query-make ( class quot -- statements ) : query-make ( ..a class quot: ( ..a columns table -- ..b ) -- ..b statements )
! query, input, outputs, secondary queries ! query, input, outputs, secondary queries
over db-table-name "table-name" set
[ sql-props ] dip [ sql-props ] dip
[ 0 sql-counter rot with-variable ] curry '[ 0 sql-counter [ dup "table-name" set @ ] with-variable ]
{ "" { } { } { } } nmake { "" { } { } { } } nmake
[ <simple-statement> maybe-make-retryable ] dip [ <simple-statement> maybe-make-retryable ] dip
[ [ 1array ] dip append ] unless-empty ; inline [ [ 1array ] dip append ] unless-empty ; inline