summaryrefslogtreecommitdiffabout
path: root/src/gsql_lib.c
Side-by-side diff
Diffstat (limited to 'src/gsql_lib.c') (more/less context) (show whitespace changes)
-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
@@ -20,25 +20,6 @@
#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)
{

Return to:

Send suggestions and report system problems to the System administrator.