(struct COS_Cons_ent): New structure.

[chise/concord.git] / cos.h

diff --git a/cos.h b/cos.h
index dfd9679..42ff7a2 100644 (file)
--- a/cos.h
+++ b/cos.h
@@ -55,6 +55,8 @@ typedef struct COS_String_ent* COS_String;
 COS_String cos_make_string (char* str, size_t size);
 COS_String cos_build_string (char* str);
 
+int cos_string_p (COS_object obj);
+
 size_t cos_string_size (COS_String string);
 char* cos_string_data (COS_String string);
 
@@ -67,6 +69,14 @@ COS_Symbol cos_intern (COS_object name);
 COS_String cos_symbol_name (COS_Symbol symbol);
 
 
+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);
+COS_object cos_car (COS_Cons pair);
+COS_object cos_cdr (COS_Cons pair);
+
+
 typedef struct COS_Container_ent COS_Container_ent;
 typedef struct COS_Container_ent* COS_Container;