From 640a20d0b6a2137617b7f217defce7979338e289 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Wed, 14 Aug 2013 21:43:41 +0800
Subject: removed redundant info

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

(limited to 'types.h')

diff --git a/types.h b/types.h
index f879ffd..846d86a 100644
--- a/types.h
+++ b/types.h
@@ -139,11 +139,8 @@ class Continuation;
  */
 class OptObj: public Container {/*{{{*/
     public:
-        /** Pointer to the environment */
-        Environment *envt;
-
-        OptObj(Environment *envt, int otype = 0);
 
+        OptObj(int otype = 0);
         /**
          * The function is called when an operation is needed.
          * @param args The argument list (the first one is the opt itself)
@@ -168,6 +165,8 @@ class ProcObj: public OptObj {/*{{{*/
         Pair *body;
         /** The arguments: <list> | var1 ... | var1 var2 ... . varn */
         EvalObj *params;
+        /** Pointer to the environment */
+        Environment *envt;
 
         /** Conctructs a ProcObj */
         ProcObj(Pair *body, Environment *envt, EvalObj *params);
@@ -187,7 +186,7 @@ class SpecialOptObj: public OptObj {/*{{{*/
     protected:
         string name;
     public:
-        SpecialOptObj(Environment *envt, string name);
+        SpecialOptObj(string name);
         ReprCons *get_repr_cons();
 };/*}}}*/
 
@@ -205,7 +204,7 @@ class BuiltinProcObj: public OptObj {/*{{{*/
          * @param proc the actual handler
          * @param name the name of this built-in procedure
          */
-        BuiltinProcObj(Environment *envt, BuiltinProc proc, string name);
+        BuiltinProcObj(BuiltinProc proc, string name);
         Pair *call(Pair *args, Environment * &envt,
                     Continuation * &cont, EvalObj ** &top_ptr);
         ReprCons *get_repr_cons();
-- 
cgit v1.2.3