From f0cf9e4d5cd358c7ac3759b9a1f47f07daf74104 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Thu, 8 Aug 2013 12:03:04 +0800
Subject: eqv? is implemented

---
 model.h | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'model.h')

diff --git a/model.h b/model.h
index 9de41fc..9afbf53 100644
--- a/model.h
+++ b/model.h
@@ -25,6 +25,8 @@ const int CLS_SYM_OBJ = 1 << 2;
 const int CLS_OPT_OBJ = 1 << 3;
 const int CLS_NUM_OBJ = 1 << 4;
 const int CLS_BOOL_OBJ = 1 << 5;
+const int CLS_CHAR_OBJ = 1 << 6;
+const int CLS_STR_OBJ = 1 << 7;
 
 
 #define TO_CONS(ptr) \
@@ -99,6 +101,7 @@ class EvalObj : public FrameObj {
         bool is_num_obj();
         /** Check if the object is a boolean */
         bool is_bool_obj();
+        ClassType get_otype();
         virtual void prepare(Cons *pc);
         /** Any EvalObj has its external representation */
         virtual string ext_repr() = 0;  
-- 
cgit v1.2.3