(concord_ds_p): New function.

diff --git a/cos.c b/cos.c
index 42b66dd..5df8af2 100644 (file)
--- a/cos.c
+++ b/cos.c
@@ -386,6 +386,12 @@ cos_release_ds (COS_Object obj)
   return concord_close_ds ((COS_DS)obj);
 }
 
+int
+concord_ds_p (COS_object obj)
+{
+  return COS_OBJECT_DS_P (obj);
+}
+
 
 COS_Genre
 concord_get_genre (COS_object ds, COS_object genre)