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

diff --git a/extra/odbc/odbc.factor b/extra/odbc/odbc.factor
index e13b969cbcec46792b4af5b6e3ac2a316f1151ed..c95d577bb28608a6ac94fa823ea14a8297e0fe03 100644 (file)
--- 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 ;