diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-15 22:07:36 +0200 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-15 22:07:36 +0200 |
| commit | 7c6a94930dae634efd8af6db16578d8317153a9a (patch) | |
| tree | 2d931e2e4595c88c4f704151dcc2316337d4dfa5 /src/gsql_conn.c | |
| parent | 04b9cd97aa9287668ce41e3db7e273324d3136bc (diff) | |
| download | gamma-7c6a94930dae634efd8af6db16578d8317153a9a.tar.gz gamma-7c6a94930dae634efd8af6db16578d8317153a9a.tar.bz2 | |
Fix exception generation in (gamma sql)
* src/gsql_conn.c (gsql_error): Rename to gamma_sql_error.
Change Scheme name to sql-error. All callers updated.
* src/guile-sql.h: Likewise.
* src/mysql.c (s_mysql_connect, s_mysql_query): Use
scm_error to generate error exceptions.
* src/pgsql.c (s_pgsql_connect, s_pgsql_query): Likewise.
* src/sql.sci (sql-catch-failure)
(sql-ignore-failure): Update.
* doc/sql.texi: Update.
Diffstat (limited to 'src/gsql_conn.c')
| -rw-r--r-- | src/gsql_conn.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gsql_conn.c b/src/gsql_conn.c index a2fc93c..40fef2b 100644 --- a/src/gsql_conn.c +++ b/src/gsql_conn.c @@ -25,7 +25,7 @@ static int num_iface; static struct sql_iface sql_iftab[MAX_IFACES]; -SCM_GLOBAL_SYMBOL (gsql_error, "gsql-error"); +SCM_GLOBAL_SYMBOL (gamma_sql_error, "sql-error"); static long sql_connect_tag = -1; |