From 3afe02efd3c88b84bcf03adc2419b063ca86244e Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sat, 9 Oct 2004 16:59:50 +0000 Subject: (scm_is_sql_connect): Cast tag to SCM --- src/gsql_conn.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 */ -- cgit v1.2.1