From 856267ebffee5506047fdb56d1b7b317566adaad Mon Sep 17 00:00:00 2001 From: Teddy Date: Sun, 11 Aug 2013 15:20:27 +0800 Subject: added more comments --- model.cpp | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'model.cpp') diff --git a/model.cpp b/model.cpp index 2d3a46b..53b5541 100644 --- a/model.cpp +++ b/model.cpp @@ -125,20 +125,3 @@ string EvalObj::ext_repr() { res = "(" + res + ")"; return res; } - - - -bool make_exec(Pair *ptr) { - if (ptr == empty_list) return true; - EvalObj *nptr; - for (;;) - if ((nptr = ptr->cdr)->is_pair_obj()) - { - ptr->next = TO_PAIR(nptr); - ptr = ptr->next; - } - else break; - ptr->next = NULL; - return ptr->cdr == empty_list; -} - -- cgit v1.2.3