Fix typo again

src/gc.c

@@ -23,7 +23,7 @@ static size_t free_objects_list_count;
 static struct GCObjectList *free_objects_list;
 
 static struct GCObjectList *black_objects;
-static struct GCObjectList *GRAY_objects;
+static struct GCObjectList *gray_objects;
 static struct GCObjectList *white_objects;
 static struct GCObjectList *static_objects;
 
@@ -52,7 +52,7 @@ static ALWAYS_INLINE struct GCObjectList **HEAD_FOR_SET(ObjectGCSet set) {
     if (set == GC_BLACK) {
         return &black_objects;
     } else if (set == GC_GRAY) {
-        return &GRAY_objects;
+        return &gray_objects;
     } else if (set == GC_WHITE) {
         return &white_objects;
     } else {
@@ -336,10 +336,10 @@ static void unmark_the_stack(void) {
 }
 
 static void mark_GRAY_objects(size_t *restrict limit) {
-    while (GRAY_objects && saturating_dec(limit, 1)) {
-        mark_object(GRAY_objects->obj);
+    while (gray_objects && saturating_dec(limit, 1)) {
+        mark_object(gray_objects->obj);
     }
-    if (!GRAY_objects) {
+    if (!gray_objects) {
         incremental_state.step = GC_STEP_FREE;
     }
 }
@@ -383,7 +383,7 @@ void lisp_gc_yield(struct timespec *restrict time_took, bool full) {
     size_t limit = full ? SIZE_MAX : LISP_GC_INCREMENTAL_COUNT;
     while (limit) {
         // there are more GRAY objects, mark them before we sweep
-        if (incremental_state.step == GC_STEP_FREE && GRAY_objects) {
+        if (incremental_state.step == GC_STEP_FREE && gray_objects) {
             incremental_state.step = GC_STEP_HEAP;
         }
         switch (incremental_state.step) {
@@ -419,8 +419,8 @@ void lisp_gc_teardown(void) {
     while (white_objects) {
         free_object(white_objects->obj);
     }
-    while (GRAY_objects) {
-        free_object(GRAY_objects->obj);
+    while (gray_objects) {
+        free_object(gray_objects->obj);
     }
     while (black_objects) {
         free_object(black_objects->obj);