aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/gsql_conn.c14
1 files changed, 9 insertions, 5 deletions
diff --git a/src/gsql_conn.c b/src/gsql_conn.c
index a61f8f6..23d831b 100644
--- a/src/gsql_conn.c
+++ b/src/gsql_conn.c
@@ -91,10 +91,10 @@ scm_is_sql_connect (SCM scm)
/* Interface */
-SCM_DEFINE (sql_connect_internal, "sql-connect-internal", 5, 1, 0,
+SCM_DEFINE (sql_connect, "sql-connect", 5, 1, 0,
(SCM IFACE, SCM HOST, SCM PORT, SCM DB, SCM USER, SCM PASS),
"Connect to a database.")
-#define FUNC_NAME s_sql_connect_internal
+#define FUNC_NAME s_sql_connect
{
SCM smob;
char *hostname;
@@ -164,10 +164,10 @@ SCM_DEFINE (sql_connect_close, "sql-connect-close", 1, 0, 0,
}
#undef FUNC_NAME
-SCM_DEFINE (sql_query_internal, "sql-query-internal", 2, 0, 0,
+SCM_DEFINE (sql_query, "sql-query", 2, 0, 0,
(SCM CONN, SCM QUERY),
"Run an SQL query")
-#define FUNC_NAME s_sql_query_internal
+#define FUNC_NAME s_sql_query
{
struct sql_connect *conn;
void *ptr;
@@ -201,5 +201,9 @@ gsql_conn_init()
scm_set_smob_mark (sql_connect_tag, sql_connect_mark);
scm_set_smob_free (sql_connect_tag, sql_connect_free);
scm_set_smob_print (sql_connect_tag, sql_connect_print);
-#include <gsql_conn.x>
+#ifndef SCM_MAGIC_SNARFER
+# include <gsql_conn.x>
+#endif
}
+
+

Return to:

Send suggestions and report system problems to the System administrator.