diff options
-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 */ |