(MAYBE_GC): Test gc_cons_threshold and gc_relative_threshold, one by one.

diff --git a/src/bytecode.c b/src/bytecode.c
index ee89e9e8d7b8e7d135754c06fce89044af72363b..3069e0a6ac3847734783624e42e1c9ffc08fb869 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -355,13 +355,14 @@ unmark_byte_stack ()
 /* Garbage collect if we have consed enough since the last time.
    We do this at every branch, to avoid loops that never GC.  */
 
-#define MAYBE_GC()                                  \
-  if (consing_since_gc > gc_cons_combined_threshold) \
-    {                                               \
-      BEFORE_POTENTIAL_GC ();                       \
-      Fgarbage_collect ();                          \
-      AFTER_POTENTIAL_GC ();                        \
-    }                                               \
+#define MAYBE_GC()                                     \
+  if (consing_since_gc > gc_cons_threshold             \
+      && consing_since_gc > gc_relative_threshold)     \
+    {                                                  \
+      BEFORE_POTENTIAL_GC ();                          \
+      Fgarbage_collect ();                             \
+      AFTER_POTENTIAL_GC ();                           \
+    }                                                  \
   else
 
 /* Check for jumping out of range.  */