From f466d290ba8ec2cf7fa6b35f3b31e117ff817d9b Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sun, 30 Oct 2016 23:51:49 +0300
Subject: [PATCH] odbc: fix odbc-get-row-fields by using iota on the number of
 columns

---
 extra/odbc/odbc.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/odbc/odbc.factor b/extra/odbc/odbc.factor
index e13b969cbc..c95d577bb2 100644
--- 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 ;