odbc: fix odbc-get-row-fields by using iota on the number of columns
parent
f72f116364
commit
f466d290ba
|
@ -242,7 +242,7 @@ C: <field> field
|
||||||
|
|
||||||
: odbc-get-row-fields ( statement -- seq )
|
: odbc-get-row-fields ( statement -- seq )
|
||||||
[
|
[
|
||||||
dup odbc-number-of-columns [
|
dup odbc-number-of-columns iota [
|
||||||
1 + odbc-get-field value>> ,
|
1 + odbc-get-field value>> ,
|
||||||
] with each
|
] with each
|
||||||
] { } make ;
|
] { } make ;
|
||||||
|
|
Loading…
Reference in New Issue