t >>bound? drop ;
: sql-row ( result-set -- seq )
- dup #columns [ row-column ] with { } map-integers ;
+ dup #columns [ row-column ] with map-integers ;
: sql-row-typed ( result-set -- seq )
- dup #columns [ row-column-typed ] with { } map-integers ;
+ dup #columns [ row-column-typed ] with map-integers ;
: query-each ( result-set quot: ( row -- ) -- )
over more-rows? [