diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-05-21 11:06:33 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-05-21 11:06:33 +0000 |
| commit | 5badd8c3d51e09ba9ac127b875de9d7785185bc0 (patch) | |
| tree | 5b9eab886b94f1fca0f94ae60e84eb23aab47a0d | |
| parent | 24c144e5714f4291d4496ae06503a2a7431ddab9 (diff) | |
| download | gamma-5badd8c3d51e09ba9ac127b875de9d7785185bc0.tar.gz gamma-5badd8c3d51e09ba9ac127b875de9d7785185bc0.tar.bz2 | |
Renamed sql-query-internal to sql-query
| -rw-r--r-- | src/gsql_conn.c | 14 |
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 @@ -93,6 +93,6 @@ scm_is_sql_connect (SCM scm) -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 { @@ -166,6 +166,6 @@ SCM_DEFINE (sql_connect_close, "sql-connect-close", 1, 0, 0, -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 { @@ -203,3 +203,7 @@ gsql_conn_init() scm_set_smob_print (sql_connect_tag, sql_connect_print); -#include <gsql_conn.x> +#ifndef SCM_MAGIC_SNARFER +# include <gsql_conn.x> +#endif } + + |