From: MORIOKA Tomohiko Date: Tue, 16 Apr 2013 03:55:17 +0000 (+0900) Subject: (struct COS_Cons_ent): New structure. X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fconcord.git;a=commitdiff_plain;h=f9f2aa38a4147d7ce3e4d31bd74aa5c341194f52 (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 --- 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;