OSDN Git Service

fix for FreeBSD 11.1.
[hmh/hhml.git] / lib / expr.h
index e58cfb7..7603740 100644 (file)
@@ -15,6 +15,10 @@ typedef struct {
 }  paramList;
 
 MNode*  eval (MNode* ptr, MlEnv* mlenv);
+MNode*  vectorDup (MNode* c);
+MNode*  vectorEval (MNode* c, MlEnv* mlenv);
+MNode*  tableDup (MNode* c);
+MNode*  tableEval (MNode* c, MlEnv* mlenv);
 double  eval_double (MNode* ptr, MlEnv* mlenv);
 int  eval_int (MNode* ptr, MlEnv* mlenv);
 int64_t  eval_int64 (MNode* ptr, MlEnv* mlenv);
@@ -27,7 +31,6 @@ MNode*  progn (MNode* arg, MlEnv* mlenv);
 void  progn_ex (MNode* arg, MlEnv* mlenv);
 void  checkDefun (MNode* cell, ustring& rname, MNode*& sexp);
 MNode*  newLambda (MNode* cell);
-bool  isLambda (MNode* sexp);
 MNode*  buildArgs (int start, const std::vector<ustring>& args);
 MNode*  buildArgs (int start, const std::vector<ustring>& args, const ustring& arg2);
 MNode*  buildArgs (const ustring& arg1);