...

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.cpp b/eval.cpp
index 2d03c0c..aa4f729 100644
--- a/eval.cpp
+++ b/eval.cpp
@@ -93,6 +93,8 @@ EvalObj *Evaluator::run_expr(Pair *prog) {
 
     while((*eval_stack)->is_ret_addr())
     {
+        if (top_ptr == eval_stack + EVAL_STACK_SIZE)
+            throw TokenError("Evaluation", RUN_ERR_STACK_OVERFLOW);
         for (; pc && pc->skip; pc = pc->next);
         if (pc)
             push(pc, top_ptr, envt);