From 36154cff69a3104f62b5e485ab945bc6287e8686 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sun, 30 Oct 2016 13:12:08 +0300
Subject: [PATCH] odbc: compact the declaration of symbols

---
 extra/odbc/odbc.factor | 57 +++++++++++++-----------------------------
 1 file changed, 18 insertions(+), 39 deletions(-)

diff --git a/extra/odbc/odbc.factor b/extra/odbc/odbc.factor
index b55fa02d08..014f130ca1 100644
--- a/extra/odbc/odbc.factor
+++ b/extra/odbc/odbc.factor
@@ -44,45 +44,24 @@ CONSTANT: SQL-DRIVER-PROMPT 2
 
 CONSTANT: SQL-C-DEFAULT 99
 
-SYMBOL: SQL-CHAR
-SYMBOL: SQL-VARCHAR
-SYMBOL: SQL-LONGVARCHAR
-SYMBOL: SQL-WCHAR
-SYMBOL: SQL-WCHARVAR
-SYMBOL: SQL-WLONGCHARVAR
-SYMBOL: SQL-DECIMAL
-SYMBOL: SQL-SMALLINT
-SYMBOL: SQL-NUMERIC
-SYMBOL: SQL-INTEGER
-SYMBOL: SQL-REAL
-SYMBOL: SQL-FLOAT
-SYMBOL: SQL-DOUBLE
-SYMBOL: SQL-BIT
-SYMBOL: SQL-TINYINT
-SYMBOL: SQL-BIGINT
-SYMBOL: SQL-BINARY
-SYMBOL: SQL-VARBINARY
-SYMBOL: SQL-LONGVARBINARY
-SYMBOL: SQL-TYPE-DATE
-SYMBOL: SQL-TYPE-TIME
-SYMBOL: SQL-TYPE-TIMESTAMP
-SYMBOL: SQL-TYPE-UTCDATETIME
-SYMBOL: SQL-TYPE-UTCTIME
-SYMBOL: SQL-INTERVAL-MONTH
-SYMBOL: SQL-INTERVAL-YEAR
-SYMBOL: SQL-INTERVAL-YEAR-TO-MONTH
-SYMBOL: SQL-INTERVAL-DAY
-SYMBOL: SQL-INTERVAL-HOUR
-SYMBOL: SQL-INTERVAL-MINUTE
-SYMBOL: SQL-INTERVAL-SECOND
-SYMBOL: SQL-INTERVAL-DAY-TO-HOUR
-SYMBOL: SQL-INTERVAL-DAY-TO-MINUTE
-SYMBOL: SQL-INTERVAL-DAY-TO-SECOND
-SYMBOL: SQL-INTERVAL-HOUR-TO-MINUTE
-SYMBOL: SQL-INTERVAL-HOUR-TO-SECOND
-SYMBOL: SQL-INTERVAL-MINUTE-TO-SECOND
-SYMBOL: SQL-GUID
-SYMBOL: SQL-TYPE-UNKNOWN
+SYMBOLS:
+    SQL-CHAR SQL-VARCHAR SQL-LONGVARCHAR
+    SQL-WCHAR SQL-WCHARVAR SQL-WLONGCHARVAR
+    SQL-DECIMAL SQL-SMALLINT SQL-NUMERIC SQL-INTEGER
+    SQL-REAL SQL-FLOAT SQL-DOUBLE
+    SQL-BIT
+    SQL-TINYINT SQL-BIGINT
+    SQL-BINARY SQL-VARBINARY SQL-LONGVARBINARY
+    SQL-TYPE-DATE SQL-TYPE-TIME SQL-TYPE-TIMESTAMP
+    SQL-TYPE-UTCDATETIME SQL-TYPE-UTCTIME
+    SQL-INTERVAL-MONTH SQL-INTERVAL-YEAR SQL-INTERVAL-DAY
+    SQL-INTERVAL-HOUR SQL-INTERVAL-MINUTE SQL-INTERVAL-SECOND
+    SQL-INTERVAL-YEAR-TO-MONTH
+    SQL-INTERVAL-DAY-TO-HOUR SQL-INTERVAL-DAY-TO-MINUTE
+    SQL-INTERVAL-DAY-TO-SECOND
+    SQL-INTERVAL-HOUR-TO-MINUTE SQL-INTERVAL-HOUR-TO-SECOND SQL-INTERVAL-MINUTE-TO-SECOND
+    SQL-GUID
+    SQL-TYPE-UNKNOWN ;
 
 : convert-sql-type ( number -- symbol )
     {