(struct COS_Cons_ent): New structure.

[chise/concord.git] / cos.h

diff --git a/cos.h b/cos.h
index 3b157fc..42ff7a2 100644 (file)
--- a/cos.h
+++ b/cos.h
@@ -69,6 +69,14 @@ COS_Symbol cos_intern (COS_object name);
 COS_String cos_symbol_name (COS_Symbol symbol);
 
 
 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;
 
 typedef struct COS_Container_ent COS_Container_ent;
 typedef struct COS_Container_ent* COS_Container;