(struct COS_Cons_ent): New structure.

(COS_Cons): New type.
(cos_cons): New prototype.
(cos_car): New prototype.
(cos_cdr): New prototype.

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);
 
 
+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;