From b9eaaa706ac42448362ed7aa5d8b9bdb4cdcf2f9 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sat, 29 Oct 2016 21:36:33 +0300
Subject: [PATCH] odbc: fix CHAR: usage

---
 unmaintained/odbc/odbc.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/unmaintained/odbc/odbc.factor b/unmaintained/odbc/odbc.factor
index b64df3ff01..d7d11da727 100644
--- a/unmaintained/odbc/odbc.factor
+++ b/unmaintained/odbc/odbc.factor
@@ -147,7 +147,7 @@ FUNCTION: SQLRETURN SQLGetData ( SQLHSTMT statementHandle, SQLUSMALLINT columnNu
   SQL-HANDLE-STMT swap alloc-handle ;
 
 : temp-string ( length -- byte-array length )
-  [ CHAR: \space  <string> ascii string>alien ] keep ;
+  [ CHAR: space <string> ascii string>alien ] keep ;
 
 : odbc-init ( -- env )
   alloc-env-handle
@@ -189,7 +189,7 @@ C: <column> column
 
 : odbc-describe-column ( statement n -- column )
   dup >r
-  1024 CHAR: \space <string> ascii string>alien dup >r
+  1024 CHAR: space <string> ascii string>alien dup >r
   1024
   0 <short>
   0 <short> dup >r
@@ -233,7 +233,7 @@ C: <field> field
 : odbc-get-field ( statement column -- field )
   dup column? [ dupd odbc-describe-column ] unless dup >r number>>
   SQL-C-DEFAULT
-  8192 CHAR: \space <string> ascii string>alien dup >r
+  8192 CHAR: space <string> ascii string>alien dup >r
   8192
   f SQLGetData succeeded? [
     r> r> [ dereference-type-pointer ] keep <field>