in-place arithmetic opt & fix gc bug in `eval`

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.cpp b/eval.cpp
index 73c2120..bf61b3e 100644
--- a/eval.cpp
+++ b/eval.cpp
@@ -204,6 +204,7 @@ EvalObj *Evaluator::run_expr(Pair *prog) {
                         call(args, envt, cont, top_ptr);
                 else
                     throw TokenError(opt->ext_repr(), SYN_ERR_CAN_NOT_APPLY);
+                gc.force();
             }
         }
     }