From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 19 Apr 2013 05:26:01 +0000 (+0900)
Subject: (cos_symbol_p): New prototype.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=68c5464c57eb527358ed1a9933525023f6909fc3;p=chise%2Fconcord.git

(cos_symbol_p): New prototype.
(cos_assoc): New prototype.
(cos_alist_get): New prototype.
---

diff --git a/cos.h b/cos.h
index 8e5822f..7411009 100644
--- a/cos.h
+++ b/cos.h
@@ -69,6 +69,8 @@ typedef struct COS_Symbol_ent* COS_Symbol;
 
 COS_Symbol cos_intern (COS_object name);
 
+int cos_symbol_p (COS_object obj);
+
 COS_String cos_symbol_name (COS_Symbol symbol);
 
 extern COS_Symbol cos_Qnil;
@@ -83,6 +85,9 @@ int cos_cons_p (COS_object obj);
 COS_object cos_car (COS_Cons pair);
 COS_object cos_cdr (COS_Cons pair);
 
+COS_Cons cos_assoc (COS_object key, COS_Cons alist);
+COS_object cos_alist_get (COS_Cons alist, COS_object key);
+
 
 typedef struct COS_Container_ent COS_Container_ent;
 typedef struct COS_Container_ent* COS_Container;