commit 8b5ec7a9a45e19ceb7633371fa19f1fa6e7252cd
author swissChili <swisschili@fastmail.com> Fri Aug 05 22:26:17 2022 -0700
committer swissChili <swisschili@fastmail.com> Fri Aug 05 22:26:17 2022 -0700
tree 59ad2db72eca30cc6d59253cd0baa40be229bd3b
parent 3e57d7c3f70371f9acf95326c2f5c2cd0e8d2d15

Add low-level class support, stub of high level OOP wrapper

src/lisp/gc.c

diff --git a/src/lisp/gc.c b/src/lisp/gc.c
index 826cd02..e3fc231 100644
--- a/src/lisp/gc.c
+++ b/src/lisp/gc.c
@@ -95,6 +95,16 @@
 
 				break;
 			}
+			case CLASS_TAG: {
+				struct class_alloc *class = (void *)alloc;
+
+				for (int i = 0; i < class->class.num_members; i++)
+				{
+					_mark(class->class.members[i], marked);
+				}
+
+				break;
+			}
 			}
 		}
 	}