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 ascii string>alien ] keep ; + [ CHAR: space ascii string>alien ] keep ; : odbc-init ( -- env ) alloc-env-handle @@ -189,7 +189,7 @@ C: column : odbc-describe-column ( statement n -- column ) dup >r - 1024 CHAR: \space ascii string>alien dup >r + 1024 CHAR: space ascii string>alien dup >r 1024 0 0 dup >r @@ -233,7 +233,7 @@ C: field : odbc-get-field ( statement column -- field ) dup column? [ dupd odbc-describe-column ] unless dup >r number>> SQL-C-DEFAULT - 8192 CHAR: \space ascii string>alien dup >r + 8192 CHAR: space ascii string>alien dup >r 8192 f SQLGetData succeeded? [ r> r> [ dereference-type-pointer ] keep