diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-09 16:59:50 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-09 16:59:50 +0000 |
commit | 3afe02efd3c88b84bcf03adc2419b063ca86244e (patch) | |
tree | b6d4261ec0010a097f3c570cb9ce3520ecb74e6a | |
parent | 2e7ac98b72d790c4fb4eea75ebb118f18f15f3c9 (diff) | |
download | gamma-3afe02efd3c88b84bcf03adc2419b063ca86244e.tar.gz gamma-3afe02efd3c88b84bcf03adc2419b063ca86244e.tar.bz2 |
(scm_is_sql_connect): Cast tag to SCM
-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 cdd2dae..c9d22e6 100644 --- a/src/gsql_conn.c +++ b/src/gsql_conn.c @@ -103,7 +103,7 @@ sql_connect_create (char *name) int scm_is_sql_connect (SCM scm) { - return SCM_NIMP (scm) && SCM_CAR (scm) == sql_connect_tag; + return SCM_NIMP (scm) && SCM_CAR (scm) == (SCM) sql_connect_tag; } /* Interface */ |