diff options
Diffstat (limited to 'src/gsql_lib.c')
-rw-r--r-- | src/gsql_lib.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/gsql_lib.c b/src/gsql_lib.c index 223b223..be2e15f 100644 --- a/src/gsql_lib.c +++ b/src/gsql_lib.c @@ -17,31 +17,12 @@ #ifdef HAVE_CONFIG_H # include <config.h> #endif #include <guile-sql.h> #include <app.h> -SCM -scm_makenum (unsigned long val) -#ifndef HAVE_SCM_LONG2NUM -{ - if (SCM_FIXABLE ((long) val)) - return scm_from_int (val); - -#ifdef SCM_BIGDIG - return scm_i_long2big (val); -#else /* SCM_BIGDIG */ - return scm_make_real ((double) val); -#endif /* SCM_BIGDIG */ -} -#else -{ - return scm_long2num (val); -} -#endif - static struct gamma_parmdcl * find_parmdcl(struct gamma_parmdcl *dcl, const char *name) { for (; dcl->name; dcl++) if (strcmp(dcl->name, name) == 0) return dcl; |