aboutsummaryrefslogtreecommitdiffstats
path: root/src/bootstrap/gc.c
diff options
context:
space:
mode:
authorBad Diode <bd@badd10de.dev>2021-10-16 21:56:00 +0200
committerBad Diode <bd@badd10de.dev>2021-10-16 21:56:00 +0200
commit54060b06acd084f75bfda00517479902a5652391 (patch)
tree1dae8d79b8ea7627dcd3647b8bc4035a19f0260d /src/bootstrap/gc.c
parentbb58afb57221eb0316d6ee14e19c5f4c4a822ba1 (diff)
downloadbdl-54060b06acd084f75bfda00517479902a5652391.tar.gz
bdl-54060b06acd084f75bfda00517479902a5652391.zip
Add explicit TCO for lambda and if procedure
Diffstat (limited to 'src/bootstrap/gc.c')
-rw-r--r--src/bootstrap/gc.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/bootstrap/gc.c b/src/bootstrap/gc.c
index 6e15c63..b63ee2b 100644
--- a/src/bootstrap/gc.c
+++ b/src/bootstrap/gc.c
@@ -35,7 +35,7 @@ alloc_env(void) {
35 if (gc.envs.size < gc.envs.cap) { 35 if (gc.envs.size < gc.envs.cap) {
36 return &gc.envs.buf[gc.envs.size++]; 36 return &gc.envs.buf[gc.envs.size++];
37 } 37 }
38 printf("error: not enough room for more environments\n"); 38 fprintf(stderr, "error: not enough room for more environments\n");
39 return NULL; 39 return NULL;
40} 40}
41 41
@@ -188,7 +188,7 @@ alloc_object(ObjectType type) {
188 if (gc.available_slots == 0) { 188 if (gc.available_slots == 0) {
189 mark_and_sweep(); 189 mark_and_sweep();
190 if (gc.available_slots == 0) { 190 if (gc.available_slots == 0) {
191 printf("NOT MORE MEMORY AVAILABLE WHERE IS YOUR GOD NOW MWAHAHA\n"); 191 fprintf(stderr, "NOT MORE MEMORY AVAILABLE WHERE IS YOUR GOD NOW MWAHAHA\n");
192 dump_gc(); 192 dump_gc();
193 exit(EXIT_FAILURE); 193 exit(EXIT_FAILURE);
194 // TODO: grow heap tables. 194 // TODO: grow heap tables.