From c41608af7c76cc717c2f7f336119859cbf1d6daf Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 30 Mar 2015 13:33:02 -0400 Subject: [PATCH] Removed DEBUG_ALWAYS_GC --- cgen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cgen.scm b/cgen.scm index 7bf3fe4b..358db291 100644 --- a/cgen.scm +++ b/cgen.scm @@ -151,7 +151,7 @@ "/* Return to continuation after checking for stack overflow. */\n" "#define return_funcall" n "(cfn" args ") \\\n" "{char stack; \\\n" - " if (DEBUG_ALWAYS_GC || check_overflow(&stack,stack_limit1)) { \\\n" + " if (check_overflow(&stack,stack_limit1)) { \\\n" " object buf[" n "]; " arry-assign "\\\n" " GC(cfn,buf," n "); return; \\\n" " } else {funcall" n "((closure) (cfn)" args "); return;}}\n"))) @@ -164,7 +164,7 @@ "/* Evaluate an expression after checking for stack overflow. */\n" "#define return_check" n "(_fn" args ") { \\\n" " char stack; \\\n" - " if (DEBUG_ALWAYS_GC || check_overflow(&stack,stack_limit1)) { \\\n" + " if (check_overflow(&stack,stack_limit1)) { \\\n" " object buf[" n "]; " arry-assign " \\\n" " mclosure0(c1, _fn); \\\n" " GC(&c1, buf, " n "); return; \\\n"