From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 18 Apr 2013 02:13:21 +0000 (+0900)
Subject: (cos_cons_p): New prototype.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=db444c117301e58bee5271b3df8ac8af337b3662;p=chise%2Fconcord.git

(cos_cons_p): New prototype.
---

diff --git a/cos.h b/cos.h
index 17f7b34..8e5822f 100644
--- 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);