aboutsummaryrefslogtreecommitdiff
path: root/src/gsql_lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/gsql_lib.c')
-rw-r--r--src/gsql_lib.c19
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;

Return to:

Send suggestions and report system problems to the System administrator.