From 64967702d0f58b1f2f2082feccb39a95e2ac4cb2 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Thu, 8 Aug 2013 22:36:49 +0800
Subject: support for equal?

---
 model.h | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'model.h')

diff --git a/model.h b/model.h
index 062a61d..be4da2b 100644
--- a/model.h
+++ b/model.h
@@ -23,15 +23,17 @@ const int CLS_REPR_STR = 1 << 4;
 
 const int CLS_SIM_OBJ = 1 << 0;
 const int CLS_CONS_OBJ = 1 << 1;
-const int CLS_SYM_OBJ = 1 << 2;
+
 const int CLS_OPT_OBJ = 1 << 3;
+
+const int CLS_SYM_OBJ = 1 << 2;
 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;
 const int CLS_VECT_OBJ = 1 << 8;
 
-const int REPR_STACK_SIZE = 65536;
+const int REPR_STACK_SIZE = 262144;
 
 #define TO_PAIR(ptr) \
     (static_cast<Pair*>(ptr))
@@ -102,7 +104,7 @@ class EvalObj : public FrameObj {
         bool is_num_obj();
         /** Check if the object is a boolean */
         bool is_bool_obj();
-        ClassType get_otype();
+        int get_otype();
         virtual void prepare(Pair *pc);
         /** Any EvalObj has its external representation */
         string ext_repr();
@@ -366,9 +368,8 @@ typedef vector<EvalObj*> EvalObjVec;
  * Vector support (currently a wrapper of STL vector)
  */
 class VecObj: public EvalObj {
-    private:
-        EvalObjVec vec;
     public:
+        EvalObjVec vec;
         /** Construct a vector object */
         VecObj();
         int get_size();
-- 
cgit v1.2.3