diff --git a/scsh/odbc/odbc.c b/scsh/odbc/odbc.c index 34a2d71..ef3cb7b 100644 --- a/scsh/odbc/odbc.c +++ b/scsh/odbc/odbc.c @@ -2063,9 +2063,13 @@ s48_value struct_to_sql_timestamp_record(SQL_TIMESTAMP_STRUCT *ts) void s48_init_odbc(void) { + /* bindings for record types */ S48_GC_PROTECT_GLOBAL(odbc_diag_record_type); odbc_diag_record_type = s48_get_imported_binding("odbc-diag"); + S48_GC_PROTECT_GLOBAL(odbc_column_record_type); + odbc_column_record_type = s48_get_imported_binding("odbc-column"); + /* PART 1 */ S48_EXPORT_FUNCTION(odbc_alloc_environment_handle); S48_EXPORT_FUNCTION(odbc_alloc_connection_handle); diff --git a/scsh/odbc/odbc.h b/scsh/odbc/odbc.h index 2f3bc55..81ff10a 100644 --- a/scsh/odbc/odbc.h +++ b/scsh/odbc/odbc.h @@ -317,7 +317,7 @@ s48_value struct_to_sql_time_record(SQL_TIME_STRUCT *ts); /* convert Scheme sql-timestamp record to SQL_TIMESTAMP_STRUCT */ void sql_timestamp_record_to_struct(s48_value sql_timestamp, - SQL_TIMESTAMP_STRUCT *ts); + SQL_TIMESTAMP_STRUCT *ts); void s48_init_odbc(void);