Renamed sql-query-internal to sql-query

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
 }
+
+