odbc: fix odbc-get-row-fields by using iota on the number of columns

2016-10-30 23:51:49 +03:00 · 2016-10-30 23:51:49 +03:00 · f466d290ba
parent f72f116364
commit f466d290ba
1 changed files with 1 additions and 1 deletions
--- a/extra/odbc/odbc.factor
+++ b/extra/odbc/odbc.factor
@ -242,7 +242,7 @@ C: <field> field

 : odbc-get-row-fields ( statement -- seq )
    [
-        dup odbc-number-of-columns [
+        dup odbc-number-of-columns iota [
            1 + odbc-get-field value>> ,
        ] with each
    ] { } make ;