(cos_cons_p): New prototype.

[chise/concord.git] / cos.h

diff --git a/cos.h b/cos.h
index 17f7b34..8e5822f 100644 (file)
--- a/cos.h
+++ b/cos.h
@@ -43,13 +43,13 @@ int cos_release_object (COS_object obj);
 typedef intptr_t COS_C_Int;
 
 COS_object cos_make_int (COS_C_Int num);
-COS_C_Int cos_int_value (COS_object obj);
 int cos_int_p (COS_object obj);
+COS_C_Int cos_int_value (COS_object obj);
 
 
 COS_object cos_make_char (int code);
-int cos_char_id (COS_object obj);
 int cos_char_p (COS_object obj);
+int cos_char_id (COS_object obj);
 
 
 typedef struct COS_String_ent COS_String_ent;
@@ -79,6 +79,7 @@ typedef struct COS_Cons_ent COS_Cons_ent;
 typedef struct COS_Cons_ent* COS_Cons;
 
 COS_Cons cos_cons (COS_object car, COS_object cdr);
+int cos_cons_p (COS_object obj);
 COS_object cos_car (COS_Cons pair);
 COS_object cos_cdr (COS_Cons pair);