aboutsummaryrefslogtreecommitdiffstats
path: root/src/bootstrap/objects.c
diff options
context:
space:
mode:
authorBad Diode <bd@badd10de.dev>2021-10-09 20:23:52 +0200
committerBad Diode <bd@badd10de.dev>2021-10-09 20:23:52 +0200
commitab6b56dfe916c17f34e684e69483895402783ae5 (patch)
tree37be6a2632fadaddc6c276211f78b3f733f2a6f6 /src/bootstrap/objects.c
parent859c33f37f0174a7b9d76cdcbe889ff12047c99c (diff)
downloadbdl-ab6b56dfe916c17f34e684e69483895402783ae5.tar.gz
bdl-ab6b56dfe916c17f34e684e69483895402783ae5.zip
Add proc_display and fix some bugs
Diffstat (limited to 'src/bootstrap/objects.c')
-rw-r--r--src/bootstrap/objects.c17
1 files changed, 0 insertions, 17 deletions
diff --git a/src/bootstrap/objects.c b/src/bootstrap/objects.c
index 985709a..14ff50d 100644
--- a/src/bootstrap/objects.c
+++ b/src/bootstrap/objects.c
@@ -137,20 +137,3 @@ symbol_eq(Object *a, Object *b) {
137 } 137 }
138 return true; 138 return true;
139} 139}
140
141void display(Object *root);
142
143void
144display_pair(Object *root) {
145 display(root->car);
146 if (root->cdr->type == OBJ_TYPE_PAIR) {
147 printf(" ");
148 display_pair(root->cdr);
149 } else if (root->cdr->type == OBJ_TYPE_NIL) {
150 return;
151 } else {
152 printf(" . ");
153 display(root->cdr);
154 }
155}
156