From 9f9bd0ee34422aceb9725276292a66b0e7934c6a Mon Sep 17 00:00:00 2001 From: Teddy Date: Thu, 15 Aug 2013 11:04:57 +0800 Subject: tail-rec for `if` and `and` --- model.h | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'model.h') diff --git a/model.h b/model.h index 964d68b..ba40137 100644 --- a/model.h +++ b/model.h @@ -21,24 +21,6 @@ const int CLS_CONTAINER = 1 << 20; #define TO_PAIR(ptr) \ (static_cast(ptr)) -#define EXIT_CURRENT_ENVT(lenvt) \ - do { \ - gc.expose(lenvt); \ - lenvt = cont->envt; \ - gc.attach(lenvt); \ - } while (0) -#define EXIT_CURRENT_CONT(cont) \ - do { \ - gc.expose(cont); \ - cont = cont->prev_cont; \ - gc.attach(cont); \ - } while (0) - -#define EXIT_CURRENT_EXEC(lenvt, cont) \ - do { \ - EXIT_CURRENT_ENVT(lenvt); \ - EXIT_CURRENT_CONT(cont); \ - } while (0) /** @class FrameObj * Objects that can be held in the evaluation stack -- cgit v1.2.3