+static SCM scm_dc_checkproto(SCM resp, SCM version)
+{
+ int ver;
+
+ SCM_ASSERT(SCM_SMOB_PREDICATE(resptype, resp), resp, SCM_ARG1, "dc-checkproto");
+ if(version == SCM_UNDEFINED)
+ {
+ ver = DC_LATEST;
+ } else {
+ SCM_ASSERT(SCM_INUMP(version), version, SCM_ARG2, "dc-checkproto");
+ ver = SCM_INUM(version);
+ }
+ if(dc_checkprotocol(((struct respsmob *)SCM_SMOB_DATA(resp))->resp, ver))
+ return(SCM_BOOL_F);
+ else
+ return(SCM_BOOL_T);
+}
+