odbc: compact the declaration of symbols

diff --git a/extra/odbc/odbc.factor b/extra/odbc/odbc.factor
index b55fa02d08e7da27f2baf45bdc5d6a1a87f3b8c2..014f130ca1b7f087e8ca85c7c2345d26c52b0e4d 100644 (file)
--- 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 )
     {