diff options
Diffstat (limited to 'src/gsql_lib.c')
-rw-r--r-- | src/gsql_lib.c | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/src/gsql_lib.c b/src/gsql_lib.c index 686c9cb..1d6d71f 100644 --- a/src/gsql_lib.c +++ b/src/gsql_lib.c @@ -21,18 +21,24 @@ #include <guile-sql.h> #include <app.h> -SCM +SCM scm_makenum (unsigned long val) +#ifndef HAVE_SCM_LONG2NUM { - if (SCM_FIXABLE ((long) val)) - return SCM_MAKINUM (val); + if (SCM_FIXABLE ((long) val)) + return SCM_MAKINUM (val); #ifdef SCM_BIGDIG - return scm_long2big (val); + return scm_long2big (val); #else /* SCM_BIGDIG */ - return scm_make_real ((double) val); + return scm_make_real ((double) val); #endif /* SCM_BIGDIG */ } +#else +{ + return scm_long2num (val); +} +#endif /* * Chop off trailing whitespace. Return length of the resulting string @@ -48,8 +54,8 @@ chop(char *str) return len; } -void -init_util_sql() +extern void +sql_init() { gsql_conn_init(); #ifdef USE_SQL_MYSQL @@ -60,9 +66,4 @@ init_util_sql() #endif } -extern void -scm_init_util_sql_module() -{ - scm_register_module_xxx ("util sql", init_util_sql); -} |